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IDENTIFICATION 
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DATE RELEASED: 21-JAN-76 
MAINTAINER: DIAGNOSTIC GROUP 


-_——-—_ ~~ 


THE ae et ne iN. RLED DOCUMENT ee CT TO CHANGE WITHOUT NOTICE AND 

oA NOT a, rn On eee Monk DIGITAL EQUIPMENT CORPORATION. 

pict AL POUTPMENT RESPONSSIBILITY FOR ANY ERRORS 
T MAY APPEAR IN’ THIS D DOCUMENT 


THE SOFTWARE IBED_IN THIS cere NT_IS FURNI LICENSE AND 
MAY ONLY BE OR COPIED IN E WITH THE RS OF OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORAT ON ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFT EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
COPYRIGH on ees 1972, 1976 
DIGITAL EQUIPMENT CORPORAT mi 
MAYNARD, MASSACHUSETTS 01754 


—— 


a 


eB Roe ~serun 2 torus¢d.wen~s0r-ut £ Gta 








$2 


OSB VERN Poot ed VotUt Fcdnds “Cun eD WePUT ee CofUS- CODED SOHNE tohue- Codd IOriN £ wibe OOB Ieh 
‘ny 


co 
oo 


a ee ee ee mee, oe es 


ne COll CARD READER DIAGNOSTICS  MACY11 27(732) iS-CCT-76 16:01 PACE 3 


MAINDEC-11-DZCOA-C-D CD11 CARL READER DIAGNOSTICS PAGE 2 


1.0 ABSTRACT 


Tg pen oo es gre aos ise, 
Docu Tor mao OR Hiz00 PUNCHED CARD READER. TT TESTS ALL 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 

POP-117 STANDARD COMPUTERS 

C011 CARD READER 
é.2 TEST DECKS 

MA RaUNGE B-DeRe-¢ ALPHANUMERIC TEST DECK 

DeR2e-C BINARY TEST DECK 
SPARE CARDS FOR THE ERROR FUNCTION TEST 

2.3 STORAGE 

THE ROUTINE USES MEMORY 0 TO 16100. 


3.0 LOADING PROCEDURE 
PROCEDURE FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 


4.0 STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
BASIC SNITCH REGISTER SETTINGS ARE: 
1 OR UP---HALT ON ERROR 
Susi OR UP---SCOPE LOOP 
1321 OR UP=--INHISIT PRINT OUT 
SWi2=1 OR UP=--INHIBIT TRACE TRAPPING 
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4.2 


4.3 


4.3.1 


(Te THAT THE PROCESSOR HANG 
GIT MOTEL Y WHEN THE INPUT HOPPER “GOES EMPTY 


SWO6=1 OR omen a: TO THE BEGINNING OF THE INSTRUCTION 
TEST WHEN CONTINUING A ONE DECK TO ANOTHER 
SWOS=1 OR UP---HALT BETWEEN TEST DECK 
( Nabe Fee ANATION OF SWS=0) 
SWO4=1 OR UP---RUN THE B DECK 
O3= UP---RUN IN IMAGE MODE ONLY 
SWO2=1 OR UP---RUN IN PACKING MODE ONLY 


wn 
ru 
wr 


STARTING ADDRESSES 


2: RU a at 


= READ SINGLE ae PATTERN TEST 
cp = ERROR FUNCTION TEST (M1200) 


PROGRAM AND/OR OPERATOR ACTION 


INSTRUCTION AND DATA RELIABILITY 7EST (SA 200) 


LOAD_ONE TEST DECK TN THE. CARD READER INPUT HOPPER. 


S RESET ON T READER. 
eFt *euiTeH REGISTER” 70. STARTING ADDRESS. 


T sunt ches” (SEE 4.1)-ALL DOWN FOR WORST CASE, ALPHA TEST 


TART 
WER THe HUT, HOPPER 1S IS en THE PROGRAM WILL HANG, WAITING 


BELT tie ao este” okt Base EES 
THIS oof EIR? (EE NECESSARY TO RUN THE FULL TEST ON 


ERROR FUNCTION TEST (SA 210 OR SA 250) 
STARTING apache 210 FOR M1000 READER AND 250 FOR M1200 
LOAD A FEW NPUT ROPPER (DO NOT LOAD A 


PRESS weg STORRS EAR obs Peace ci 


LOAD THE STARTING ADDRESS, THEN SET THE DESIRED SWITCH 


ee + ee 
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149 OPTIONS. 
150 PRESS START. 
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4.3.3 


4.3.4 


5.0 


5.1 


S.1.1 





FOLLOW THE INSTRUCTIONS AS THEY ARE PRINTED OUT. 


SINGLE SUBTEST LOOP (SA 220) 
LOAD CARDS (SPARE CARDS OR A TEST DECK) INTO THE INPUT 


PRESS “RESET” ON THE CARD READER. 
LOAD THE STARTING ADDRESS. 
PRESS STAR 


AT THE 1ST HALT; LOAD THE STARTING ADDRESS OF THE DESIRED 
TEST (ADDRESS OF THE SCOPE INSTRUCTION AT THE 
BEGINNING OF THE TEST.) 

PRESS CONTINUE. 

AT THE 2ND HALT SET THE SWITCH REGISTER OPTIONS (BIT 11 


PRESS CONTINUE. 


SINGLE DATA PATTERN TEST (SA 240) 


Q SPECIAL DECK (1 OR MORE CARDS) MUST BE PUNCHED TO RUN T 
EST. ANY DATA PATTERN MAY BE USED. BUT IT MUST 
IDENTICAL IN BLL 80 COLUMNS OF ALL THE CARDS (I 
Y PIECE a). 
LOAD THIS PREPARED, DECK INTO THE INPUT HOPPER. 
0 


S ST 
AT THE INITIAL HALT SET THE CARD IMAGE OF THE DATA PATTERN 
coma N SW11-SWOO. 

ON THE HALT LOAD THE DESIRED SWITCH SETTINGS. 

WHER THE READER RUNS OUT OF CARDS IT WILL RING THE 


RELOADING THE DECK AND PRESSING “RESET” ON THE CARD READER 
WILL CONTINUE THE TEST. 


HIS 
BE 
E 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


AT SA 200 (INSTRUCTION AND DATA RELIABILITY TEST) 
SEE 4.1 
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§.1.2 


§.1.3 


$.1.4 


S.2 


S.2.1 





AT SA 210 OR SA 2S0 (ERROR FUNCTION TEST FOR CO11) 

SW14=1 TO LOOP THRU THE CURRENT SUBTEST 

SW1S=1 TO HALT ON ERROR 

AT SA 220 (SINGLE SUBTEST LOOP) 

IST HALT - LORD STARTING ADDRESS OF DESIRED TEST 

2ND T SR OPTIONS (BIT 11 MUST=0) 

SEE 4.1 FOR SR OPTIONS 

AT SA 240 (SINGLE DATA PATTERN TEST) 

1ST HALT-LOAD THE CARD-IMAGE OF THE DATA PATTERN IN 
“SET SR OF 

2ND HALT- OPTIONS. 

SW15=1 4 HALT ON E 


RROR 
SWO3=1 TEST IMAGE MODE ONLY 
SWI2=1 re TEST PACKING MODE ONLY 


SUBROUTINE ABSTRACTS 


BEGIN (SA 200) 
THE INSTRUCTION TESTS ARE RUN Aint Coane in BY THE DATA 
RELIABILITY TESTS ON THE REMAINING CARDS IN THE FIRST TEST 


Sissi The PROGR LTS. iF sus=0, PROGREN ACTION DEPENDS 
NUMBER OF TEST DECKS LOADED.” TF 


eMart is ON THE ENTIRE Saas nwa 
Tess OF re Ee THE END OF THESE Tests, IT 

Pere bata REL inelL 1 ae? 15 AUN ON u REE oc 
EXARPLE i activatttn® vet WOULD TREN BETRUNCON’ THE 


Ff beck. THE OTHER SWITCHES AFFECT PROGRAM FLOW AS NOTED 


SCOPE 
THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTEST IN THE 
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INSTRUCTION SECTION. IT RECORDS THE STARTING ADDRESS OF 
EACH SUB-TEST AS IT IS BEING ENTERED. IF A SCOPE LOOP IS 
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263 
4 MAINDEC-11-DZCDA-C-D CD11 CARD READER DIAGNOSTICS PAGE 6 


268 REQUESTED IT, WILL JUMP TO THE START OF THE SUBTEST THAT THE 
269 SCOPE Loop REQUESTED IF SCOPE LOOP IS NOT 
70 REQUESTED PRE WILL BE Pp eaTrON ON THAT SUBTEST BEFORE 
71 x welt T 5 ENTERED. SWITCH 11 1 INHIBITS 
o72 ITERATION OF SUBTEST 

74 
275 5.2.3 HLT 
e76 


277 THIS SROUTING F PRINTS out THE LOCATION COUNTER AT THE TIME 
; a CONTENTS OF THE PROCESSOR 


Fp 
bea oF THE CARD READER STATUS REGISTER. NOTE 
THT ION COUNTER WILL BE THE ADDRESS OF THE HL 


$.2.4 TTRAP 
THIS ROUTINE ALLOWS THE TRACE BIT 0 | itl SET AFTER THE FIRST 
LOOP OF THE PROGRAM. TRACE BIT WILL BE SET ON ALTERNATE 
LOOPS OF THE INSTRUCTION BD UTED DATA TES UNLESS Sule he SET. 
T on RET I TRUCTI UPON Dh at IS AN “RTI® 
WHICH A 0 oy te NTERFUPTED SEQUENCE NCE. Reis CONTINUES 
UNTIL THE END 


S.2.5 TRAPCATCHER 


Btls 18 wale ASHER WENGER ol eho 
ee ae ae gt et haa 


Thee Of INTERRUPT WILL CAUSE 
HALT AT THE TRAP LOCATION PLUS TWO 


One keer 
5.2.6 ERCD11 (ERROR FUNCTION TEST) 


THE re Fel TEST on OF THE ERROR FUNCTION TEST (TESTA) CHECKS 
THE REST OF THE SUBTESTS CHE 


SEH thas Anca Mack ay eal 
SEE LIne PUL HOPPER, EDETY, OUTPUT STACKER “FULL, PIC 
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$.2.7 


5.2.8 


§.3 


§.3.1 


§.3.2 
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TESTX (SINGLE TEST LOOP) 


THIS Score OWS A SINGLE ate ue BE ONTINUOUSLY 

FOR £006 PURPO ses. WHILE A “LOOP Su wet 4 wales 

EXISTS, “Re Quines THAT. vou” WITHIN: in WHICH 
MTA INTER tt 


a ae 1 Tt iontbad SRE (ate etl 


eons ANY TEST FROM TEST THRU TEST EE 
TESTA OTHRU “EstH “ THe HALT AND THEN GO DIRECTLY TO ‘ae 


CKSAME (SINGLE DATA PATTERN TEST) 
THIS TEST IS ee TO AID IN THE DIAGNOSIS OF DIFFICULT 


DATA ERROR AND pesos. cms SOME CARD READER 
ROJUSTHENTS. IT CONTIN IbentenLLy¢ WHICH HAV . ALL 
I NICAL) ' Ee he i Tantei a Betreett Sc, UP ON 
T * INITIAL Total rack OF Caos PRINTED ALONG 
WI De READ AND TOTAL 
NUMBER DATA ERRORS WICH CHEVE SCCLRRED SINCE THE TEST Uae 


PROGRAM AND/OR OPERATOR ACTION . 
or t SiN. A 8 "eto ALL 1G BERK rate 
Tig EU SETTINGS wt 


AT THE OF FIRST DE 


gee 


Aw 





ot 
OPTIONS MAY BE USED TO ALTER THIS FLOW TED IN SEC 
ie GO shes 19 A SINGLE AND RUN IT CONTINUOUSLY 
ia HAL TCH GISTER ne 
Teer Wee (T.€. 
oor en oeSnely Ste 


REGI a NE ‘ Sa "HST Br so 
Si Nhe LbOP T THE DESIRED gigTest 
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374 


UNTIL SWi1 IS SET OR THE PROCESSOR IS HALTED. 
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375 
376 MAINDEC-11-DZCDA-C-D CD11 CARD READER DIAGNOSTIS¢ PAGE 
378 
379 
380 6.0 ERRORS 
33] 
383 
383 b.1 ERROR PRINTOUT 
334 
385 
386 6.1.1 STANDARD PRINTOUT 
389 PRINTOUTS ARE IN A THREE-WORD FORMAT. THE FIRST 1S THE PC42 
389 OF THE DETECTED THE SECOND IS THE CONTENTS OF THE 
390 PROCESSOR STATUS REGISTER MEN. THE ERROR WAS DETECTED. THE 
331 THIRD 1S THE CARD READER STATUS REGISTER. 
333 
38 6.1.2 DATA ERROR PRINTOUT 
33 ADING 18 PRINTED OUT ONCE PER TEST DECK. THE COLUMNS 
37 HAVE THE POLL ICANCE: 
339 DECK EITHER, ALPHANUMERIC OR BINARY, DEPENDING ON 
0 caro -=TH CARD NUMBER WHERE THE FAILURE OCCURRED (IN 
493 COLUMN THE COLUMN NUMBER MHERE THE FAILURE OCCURED (IN 
405 PATTERN =THE CORRECT CARD DATA THAT SHOULD HAVE BEEN READ 
498 READ =WHAT WAS ACTUALLY READ INTO CORE 
408 DATA ERRORS NOT TRACED TO CARD READER HARDWARE INCLUDE: 
410 A. SWOY NOT SET TO TYPE OF DECK USED 
41 B. CARD MISSING 
ui C: CARD DECK OUT OF PROPER SEQUENCE 
| 43 B: DAMAGED CARD 
| dig 
| Hie - 6.1.3 SINGLE DATA PATTERN PRINTOUT 
| aig 3 THE SINGLE DATA PATTERN TEST PRINTS OUT A HEADING ONCE. THE 
419 COLUMNS HAVE THE FOLLOWING SIGNIFICANCE: 
| MBL COLUMN THE COLUMN NUMBER MERE. THE FATLURE OCCURRED. 
| Be RE SORTA THAT WAS ACTUALLY READ INTO CORE 
| aS CARDS THE TOTAL MUNGER OF CARDS (IN. OCTAL) THAT HAVE 
| By BEEN RUN SINCE THE TEST WAS STARTED 
| Bs ERRORS  =THE TOTAL NUMBER OF ERRORS DETECTED (IN OCTAL) 
| ee SINCE THE TEST WAS STARTED. 
| 428 ; 
| 
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6.2 


7.0 


7.1 


7.2 


7.2.1 


7.2.2 


7.2.3 


ERROR RECOVERY 


IN GENE BAL, TEST BTL RES WILL PRINTOUT AN ERROR MESSAG 
ial he Eur chCVER. “HA I Te ERROR" a ke 3 in “a TiN 


PROGRAM HANGS LOOP, 
THE TERRO LIKELY TO BE A SIGNAL WHICH WA NEV ; rf ved 
fs ° 1! , Ogchhs Th THE fale ig vECTOR AREA fhe PROGRAM 
RESTARTED. IF THE PROGRAM HALTS IN THE MAIN FLOW, 
CONSULT THE LISTING IF NO MESSAGE IS TYPED OUT. 
RESTRICTIONS 


STARTING PROCEDURE 
NONE 


OPERATIONAL RESTRICTIONS | 


COMBINED INSTRUCTION AND DATA RELIABILITY TEST (SA200) 
We USED SW? MUST. BE oer 


¥ PORTION OF THE TE 
Ex GOES EMPTY, AND 


FAST TEST ie" Bie 

To O INHIBIT RUNNING T NG HE DAT AGILITY 
This IS NOT TO “ REGARDED Nas Mi PMLURE 
WHEN US STANDARD TEST DECKS, THEY MUST re IN PROPER 
SEENENCE BND IN GOOD COND ETION it IS A GOOD IDEA TO NUMBER 
THE CARDS IN EACH DECK AS SOON" AS THE DECK IS Ree EIVED. 
ERROR FUNCTION TEST (SA 210 OR SA 250) 


THE pre OR FUNCTION TEST REQUIRES CARDS, AS ae 
MUS 


ae TALLY nein RTHE Hest WIL LIGHT CHEEK. an Gand T FOR 
WHEN IT IS NEEDED. TO MAKE IT, TEAR ONE CORNE 


SINGLE DATA PATTERN TEST (SA 240) 


A SPECIAL DECK (ONE OR MORE CARDS) MUST BE PREP 
COLUMNS OF ALL CARDS ARE PUNCHED IDENTICALL Y 
PATTERN WHICH WILL TEST THE PROBLEM BEING DIAGNOSED 


REPARED. ALL 
EaINs A DATA 
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8.0 


8.1 


8.2.1 


8.2.2 


8.3 


6.4 





MISCELLANEOUS 


EXECUTION TIME 
NOT APPLICABLE 


CARD DECK DESCRIPTION 


ALPHANUMERIC — 
g a ae cheek PEOR THE “eect Be ent ACHED FOR EACH OF TH 
g Of THE FIRST ¢ ATS 15 FOLLOWED BY THE TAGL 


Uses THE SARE: SEQUENCE. OF ROTATED ONE COLUMN TO THE 


= 
a6 
= 
3 
a 


BINARY 

N T I wero THE, <0 S BUNCHED F FO OR EACH OF THe 60 
IN oF stNs ST CARD. AS W i THE ALPHANUMERIC 5 are EAC 
SUCCESSIVE 


THE 8 
TING 

H 

Brel ne ier he he Rall vor hcl te Mel 
SAME FASHI 


SPECIAL NOTES 
IF THE CARD READER GOES OFF-LINE BEFORE THE END OF A CARD, 
BUSY REMAINS SET UNTIL THE CARD ACTUALLY CLEARS THE READER. 


TESTING CD11’S WITH NON-STANDARD ADDRESSES 


BigAr Tre AOORESSES OF THESE REGISTERS OF A CARD READER 
ASSIGNED NON-STANDARD 
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pScoRe Pil 
531 % 
235 TITLE MAINDEC-11-DZCDA-C-D CD11 CARD READER DIAGNOSTICS 
534 :DIAGNOSTIC FOR THE CO11 CARD READER 
535 s COPYRIGHT 1973. BY DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
535 : PROGRAMMER: HAPMAN 
537 : SB MALLICK (CHANGED FROM REV A TO REV B ) 
539 
235 ; STARTING AODRESSES. ARE: 
sh ; 2O0=INSTRUCTION AND DATA TEST FOR THE CD11 
: 210=£ FUNCTION 7 TEST OF CD11 (M-1000) 
SEO REAGC SINGLE ava PATTERN TEST 
: ScO=ERROR INGE Be TEST FOR CD11 (M-1200) 


; SWITCH REGISTER 5 nN pata That THE ae dee AND DATA TEST ARE: 
SWO3=1 RUN Hee PACKING BO peek ONLY (IGNORED IF SWO2=1) 


SWO4=1 FOR 
eee a ete eee 
TEXT OECK PLAT CURRENT 


SWOS=1 TO ie 
SWR 
=0 TO CONTI FROM ONE DECK TO _ THE NEXT. 


TA Ton TEST ¢ ee ee A FIRST 
ie ld Plt re nano 
HANG WHEN THE 


7 OATACERR ERRORS WILL 


Pi tal WItL BE INC 


Pe Se Se Se Se SESE SE SESE SH SO SF Se CF SE SF SE SS SE Se C4 8 SES CF Ct Os ee Oe oe ee 





; OPERATING ay. T Mey a A AND ys TEST: 

: i, v pee th tate “START” ON THE CARD 
: — A ST TE Yaa 

; xy Tee on ie TEST CAN 


ee M3 THIS) 
tip oy THe tt GISTER SWITCHES TO THE DESIRED 


PREECE Sse Voll Sano e Oe ne Oke Boe RTE be Sed eee 
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3. te a ON THE CONSO 
4. NOT Fae ee + ih tae M3 pa le TES oan 


REQUI RUN wie 
Be ig I mica aE tEHET OE, it RUN. N THIS 
pe DECK’ INTO THe | Boer fae RINE Bao le ON THE CARD 


ApEn D SETHE Me 
READER TO RESUME iG CARDS. IF THIS DOES NOT OCCUR, 


SPECIAL SWITCH Rectstey SETTINGS FOR THE ERROR FUNCTION TEST: 
eel TO ig els THE CURRENT SUBTEST 


OPERATING ft: FOR THE Gans fh rue T in TEST: 
1. 6 Tt sy? INPUT HOPPER. 
PRESS “STAR THE CARD READER. 
Loe THE 7A, Fah, CFT THE DESIRED SWITCH OPTIONS. 


5: 
gf FOLLOW eh NSTRUCTIONS Ro: THEY ARE PRINTED OUT. 
‘oo If Her - "Eoeb Steer Ne at nDESIRED, TEST (TEST1 TO TEST 24) 


IONS (BI 
fis NTEST “Uses TRAPPING WHERE APPLICABLE IF SW12 IS NOT SET 


; DESCRIPTION OF SINGLE DATA PATTERN TEST 
roe. erS S als DESI TO AID N THE LOCATION OF DIFFICULT DATA ERROR 
N CARD ADJUSTMENTS. IT 
fae Ree WOATA BGInsT A PATTERN SET UP ON THE SWITCHES 
INITIALLY. Bx ERRORS, ORE. PRINTED ALONG WITH A COUNT OF THE TOTAL 
Te tO ONUABER OF DATA ERRORS WATCH HAVE 
OCCURRED SINCE TEST WAS STARTED. 


3 OPERAT “ 1 beer pet DATA PATTERN TEST: 
ci een N THE INPUT HOPPER, AND PUT 
: ee, ART" ON THE CONSOLE. 
; naa ak ie oy CARD~I 
DATA PATTERN Pull. 


Ue PRES ING TAT! ON THE CARD 
a CONT INUE T ri Pre 


MAINDEC-11-O2CDA-C-D 
02 Pil 
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DEFINITIONS AND VECTOR ASSIGNMENTS 


; STATUS ano CONTROL REGISTER (COST) BIT DESIGNATION 
; BIT : TA PACKING 
: tT ANER TRANSITION TO ON LINE 
: SIT 4 ADDRESS BIT 16 
! Te oN i NA 
: Bit 2 k RR LER 
; BIT 8 POWER 
: a g baler ioe MEMORY 
; T 10 TA 
: T ll T 
Ett +3. SND BF (M1200 ONLY) 
(EE Ee ser 
SWR= 1775870 
PS= 177776 
me Be 
PyPES, LOT 
DUMMY= 
RO= %0 TCH 
Be % ST Ne pnnre 
yee TA S Or fame READER” TATUS GISTER 
Be id HN See Ga SH & 
trys “5 S Res. 
SP= % stony POINTER 
= “7 :PROGRAM COUNTER 
_ ; TRAP CATCHER IS LOADED INTO LOCATIONS O THRU 377 
s LORD TRAP VECTORS FOR HLT AND SCOPE ROUTINES 
=] TR 
ite 340 
~ 
224 
POWR 
340 
230 PRINT 
234 


SCOPEC 
340 
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ARD READER DIAGNOSTICS 
TIONS AND VECTOR ASSIGNMENTS 


LORS STARTING ADDRESS AREA 


MOV HSTACK, SP 
JMP BEGIN 
2210 
MOV STACK, SP 
IMP ERCD11 
.=220 
MOV eSTACK, SP 
JMP TESTX 
-=240 
MOV aSTACK, SP 
JMP CKSAME 
.2250 
MOV sSTACK, SP 
JMP ER1200° 
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;NORMAL STARTING ADDRESS FOR CO11 READER 
;STARTING ADDRESS FOR CD11 (M1000) ERROR FUNCTION TEST 


BAY SING ADDRESS FOR LOOP WHICH CONTINUALLY RUNS 
Y SINGLE SUBTEST 


STARTING ADDRESS OF TEST TO READ A SINGLE DATA 
;PATTERN CONTINUOUSLY 


;STARTING ADDRESS FOR M-1200 ERROR FUNCTION TEST 


;LOAD POINTERS AND GENERAL STORAGE 


STACK: 
COST: 177160 
77162 


Kbee: § 155teG 
TPS 77564 


i 


TRY AGP 
INTVC: 


COUNT : 


INTFLG: 
TRFLG: 


€D1000: 


s INITIAL 
SETUP: 





sSTACK POINTER INITIALIZED TO PO 
ieee CARD READER STATUS tl 
a OF es 3 Epoch REGISTER 
RESS OF OF 
POF CARD READER INTERRUPT VECTOR 
OR TIMING TC, 
iC rans NTERRUPT IS FOUND 8 AT % 
ye 5 WHEN ce TRAE Pet Be CLEARED 


ety a pare ERROR HEADING 


AS COUNTER IN TESTG 
Li OR M-1000 CARD READER DETECTOR 
q ier ON MAXIMUM TO TION 
TatUs REGIOYER POINTER 


SINTER ety Yen tan OINTER 
TOR 


NTERRUPT FLAG 


jag we STATUS 


on 


u 




















745 
74? 
749 


BARRE 


oOo 
ao oe 
£fr 


8 888 S8S8sss8s sssssssses 
SoReRS 


S Res SaReeee 


SEIRRPSHASSELRAPORe BIS Vol SINISTER BORNE 


-—-— 
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DaGDRE- Pd 


a oe 


— 
Bane 


A 


=NN 


hes 


CD11 CARD READER D ‘weethens MACYL1 27(732) 
LOGIC FUNCTION TESTS 


004008 011426 


177506 

000340 176746 
010000 176530 
000360 176726 


001060 011356 
011114 
000200 


177376 
000362 


.=1000 


BEGIN: MOV #BEGIN,R 
OB ETP 
BR TedT 
RESTRT: TST TRFLG 
BNE TRAPX 
NOTRP: MOV #340, PS 


BR 
mre: gt Be 
MOV 8360, PS 


fests FOR COMMECT It INITIALIZATION oF ato Stier eye PrGIstere 


TEST1A, RETURN 
TESTI: SCOPE 
TESTIA: Reset %7, CKOFFL 
#200, aCDdS 
BEQ +4 
HLT 
TST acoc 
BEQ +4 
HLT 


TST acdA 
Bee +4 
HL 


TEST2:_ SCOPE 
; TEST ba THE PROPER ae 


ce ‘Sher m8 


Q 
HLT 
BR TESTS 


tote TATUS REGISTER 181442 BITS al a> S, AND & 


— — 


HLT 
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2D 


tt TALIZE POINTERS ND D FLAGS 


OR Robe On ABET Ihc 
T, TRACE TRAP 
oT CLEAR TRACE BIT 

TO INSTRUCTION TESTS 


HT eT TO CLEAR TRACE BIT 
ee TRACE BIT 


RSs 


— 
LoRR 


{2 


ee le Ts Steer uit TIN SCOPE 

CK FOR g' STATUS REGISTER BIT 7 SET 

: STATUS REGISTER NOT CORRECTLY INITIALIZED 
s HECK FOR COLUMN COUNT CLEARED 

;COLUMN COUNT NOT CLEARED BY INIT 

;CHECK FOR BUS ADDRESS CLEARED 


ADDRESS NOT CLEARED BY INIT 


TATUS REGISTER ARE /WRITE 
OF T ray Ag? TER BE 


Abe 4,5, ) AND 7 SHOULD BE SET 


iSTATUs REGISTER DION DIDN’T CONTAIN 362 


aan bRratt ‘sits CLEAR BUT 7 
TAT FE ofSter DION’T CONTAIN 200 


Fa neck BTS OF ee Chee BRE giSTER 


‘EFAS REGISTER DIDN’T CONTAIN 200 












SBaRRSBase & 





prsecdeclscTeclectesTesTosl es] 
ee eee ee 
WONWULS WMO 





001246 


8 888 S8R8 gB 
B N93 RRR OR 


1 


fo 


REBAR SS LRA TOR SOIREE Me TONE IRs 


88 sssssees 
BE SoReeis 





NAINDEC-11-DZ2CDA-C-D 
02 Pll 


ee 
re, 
—UuU 


8 
b3 
— FIG) 


R 
Lem 


CD11 CARD READER DIAGNOSTICS 
LOGIC FUNCTION TESTS 


177204 





TEST 
MOV #1 
CMP 177777, ¢ 
BEQ 
HLT 
CMP #200,  acos 
BEG +4 
HL 
BIS 8400,  acns 
TST acoc 
BEQ 44 
HLT 
CMP #200,  acos 
BEQ +4 
HLT 
TEST4: SC 
MOV , 
CMP 3177779" 9CDA 
BEQ +4 
HLT 
CMP #200,  acos 
BEQ +4 
HLT 
BIS 8400,  acDds 
TST acoA 
BEQ +4 
HLT 
CMP #200,  acps 
BEQ +4 
HLT 
TESTS: 
; START CAUSE 
‘BIT O ALWAYS READ 
5 | 
MOV SBUFBEG, 
CR pe 
CLR EBUNT 
INC acos 
key 
at 
acDs 
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OPE 
TRBST THE THE ocuNN rts oul REGISTER Ay READ/WRITE-ABILITY 


L 
tee? Fors F IT CAN BE READ 
i FAILED TO READ/WRITE 


; CHECK STATUS REG 
;BRANCH IF OK 
STATUS REG CHANGED 


‘00 A POWER CLEAR 
;CHECK FOR COLUMN COUNT CLEARED 
;BRANCH IF OK 

;COLUMN COUNT NOT CLEARED BY POWER CLEAR 


;CHECK STATUS REG 
: H IF OK 
;STATUS REG CHANGED 


OPE 
;TEST. THE BUS noORS SS REGISTER FOR fan WRT TE ABILITY 


HTEst TO SEE IF IT CAN BE READ 
:CDBA FAILED TO READ/WRITE 


CHECK STATUS REG 
; BRANCH Nd OK 
‘STATUS REG CHANGED 
DO A POWER CLEAR 
; CHECK FOR BUS ADDRESS CLEARED 
: BUS BUS ADDRESS” NOT CLEARED BY POWER CLEAR 
CHECK STATUS REG 
:STATUS REG CHANGED 
Wi ts Se ABOUT 1 SECOND 
s CHECK OFFCL 
ete be’ eoutrn SOUR TO READ 1 COLUMN 
jSET_ UP ROORESS 
2ST ¢ PROCESSOR STATUS 
coun 
IN ee! 
>START READING A CARD 
sCHECK FOR ONTROLLER READY CLEARED 
+ BONTROLLER READY DION’T CLEAR 
sCHECK BIT 0 
‘BRANCH IF NOT SET 








I0e 
POINPECS | f“OZCOR-C-0 Cait CARD READER {RGNOSTICS MACY11 27(732) 15-OCT-76 16:01 PAGE 22 
D Pll LO S 





ZCDAC. ¢ FUNCTION TE 
856 001352 104000 HLT :BIT 0 READ AS A ONE 
857 001354 O004el BR TESTE : BRANCH AFTER FAILURE 
858 001356 ? 177140 INC COUNT WAIT ABOUT 
959 001 362 aois70 BNE LOOPS 
860 O01264 016767 177140 176404 MOV PROC, PS nesTone PROCESSOR STATUS 
861 O01 105713 TSTB = aCDS ; CHECK CONTROLLER READY 
862 001 100401 MI 44 ONTINUE IF 
001 104000 HLT CONTROLLER READY DIDN’T SET WITHIN 1 SEC 
BEY 001409 13 TST acds 
865 O01402e 1 BPL ; 
866 001404 104000 HLT sERROR BIT SET 
B67 001 04 BR TESTS 
00141 13 177577 IT 8177577,9CDS  ;CHECK FOR ANY OTHER BITS 
869 001414 001401 BEQ +4 BRANCH IF OK 
870 001416 104000 HLT ‘EXTRA BIT(S) SET 
872 001420 104400 TESTb: _ SCOPE 
873 (BIT 2) SHOULD NOT BE SET BY READING A CARD 
874 *IT SHOULD REMAIN NOT SET 
875 ‘THIS SHOULD HAPPEN WITHIN ABOUT 1 SECOND 
876 OO1422 004767 o105Se2 ISR 2 ,CKOFFL CHEEK FOR OFF-LINE SET 
877 O01426 005013 CLR INITIALIZE STATUS REGISTER 
878 001430 012714 177754 #- acts acoc §;SET UP COLUMN COUNT TO READ 20 COLUMNS 
879 001434 012715 016000 NOY #BUFBEG,3CDA  ;SET UP BUS ADDRESS 
880 001440 2 INC acos READ A CARD 
881 O01442 13 900004 BIT #4, ICDS “CHECK BUSY 
882 001446 001401 BEQ +4 : 
883 001 104000 HLT “BUSY SET 
884 901452 O0S067 177044 CLR COUNT SET UP WAIT TER 
88S 001456 016767 176314 177044 MOV PS, PROC :SAVE PROCESSOR STATUS 
886 001464 pieres 176306 CLR PS CLR THE T BIT 
887 001470 105713 LOOP6A: TSTB “CHECK READY 
888 0014 00405 BMI LOOP6B BRANCH IF READY 
889 001474 Apese? 177022 DEC COUNT ‘WAIT ABOUT I SEC. 
890 001500 O01 BNE 
B91 oo i508 HL READING A CARD DIDN’T SET READY 
892 001 li BR TEST? 
893 OO1SOE 016767 177016 176262 LOOP6B: MOV PROC, PS ; RESTORE THE STATUS 
Pea 1b14 105713 LOOP6: STB D 5 CHECK READY 
1 At 100401 BMI 6 
B36 1 HLT *RESTORING STATUS RESET READY 
1 3 DONE6: TST acos ERROR BIT 15 
ett x BSR 
300 001526 104000 HL ? ERROR att ts WAS SET 
$02 001530 104400 TEST?: 
903 ; CONTROLLER ADY ¥_SHOULD CAUSE mm MT 
804 001532 767 Ol SR a Rss 
| 905 0015 le71¢ 001 Hoy aTtnt?, NT ite NTER ven 7 
357 ta 1é7be ate baeo08 ROY a0 . ProINnT) st 
308 001556 er 176212 BIC 340, ; Pecn g 
1 12714 i #-31: oj T T0 31 COLUMNS 
$10 001570 012715 01 MOV 8BUFBEG, aCDA iE 
| 91 001574 012713 00101 MOV #i0l, ‘acdS ;5€ TNTERUPT CNA ONRBLE AND READ 
| 
[ 


CD11 CARD READER DIAGNOSTICS 
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DZCOAC.P11 LOGIC FUNCTION TESTS 


= 


See ated 176164 


32 
3e 


* 
ro 
len 


or 


OONWUI£C 


RERBRERS 


OWWOWwo 


Ta 


SInN 
as 
o£O 


00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 


gates 


: 
92S 
S 
e 
# 
$33 
2 
% 
938 
a 
341 
es 
S44 
es 
947 
‘ 
zi 
es 
e 
3 
S 
oa 
5: 
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fare acos ;WAIT FOR CONTROLLER READY 


MOV 2(ADINT),PS ;RESTORE PROCESSOR TO HIGHEST PRIORITY 
BIC #100,  acds ic EAR INTERRUPT ENA 
HL INTERRUPT SeCENRED 


BR CONT? 
TINT?: TSTB acDdS CHECK ACONTROLLER READY 

CMP (SP)+, (SP)¢ ero LER ER POINTER 

TST acDs "MAKE SURE NO ERROR OCCURRED 

BPL +4 

HL BIT 

CLR acos :D bist WIRTERRUP 
CONT7: MOV #222, JADINT :C THTERRUPT TURN. ADDRESS 

CLR asese :TO CAUSE A HALT IF AN INTERRUPT OCCURS 
TEST10: SCOPE 


;CONTROLLER READY SHOULDN’T CAUSE AN INTERRUPT IF THE PROCESSOR IS 


:AT LEVEL 7 ? PRIORITY 
% INIT _ ; INITIALIZE 
#TINTIC, SADINT ;SETUP RETURN * ies peroRtTy 


BTS #340, ;SET S 

MOV SLAQINT) ;LOAD PROCESSOR lydasad 

Rov salve, ScDK FSET Up US ROORESS ee 
MOV #101, ‘acDS RETR LER Rowe 

ape acys’ ie % READY 


BR +6 sCONT TIME IF NO INTERRUPT OCCURRED 


CMP (SP)+, (SP)+ poe ACK POINTER 
CLR acos ee 


+ ata 
CAUSE A HALT ee AN INTERRUP OCCURS 


TINT1O: 


LEVEL or WHICH AN IN nas 
SPRINT Ob OUT A RE SAGE STATING THIS LEVEL T IS OTHER eg THE STANDARD 
j (LEVEL @) tt Pain ie te HAT IT ALWAYS OCCURS At THIS 
T 


oe ST over ; OR TT 10 BE PRIN Te a 


FOR IT 
TEST FOR AN INTERRUPT ON LEVEL 7 
testi: SCOPE 


MOV artntit, SAOINT nT {SETUP Remy eooness 
ROY Fen ‘ - pb i Up Ret PROCESSOR STATUS 


ise ] S50R PRIORITY TO 


se oe ae 2208 10 RT TO READ IORITY 


READ 80 COLUMNS 
;WAIT F 


T AND READ 
READY 
;RESTORE PROCESSOR TO HIGHEST PRIORITY 












alaitataitaiata 


bb bo O- > +b +b - > -— +p — p> --h ob aH -H = 


ONZEREL HESSLRV ERS 


- = 
fa 
tT 


SR RSS Sich See Ure ON SSE GEREN Eee eR ERs da dod sade 


0-0 = 0 -0— 0 b= b= 6 8 + &- > = B= + = & 8 = = = Oo Ho dm 





sun 
z 
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[Bate FON TE #8 ri» path himadtan 


FUNC 
FREE, eon RR ITT enum coo 
CLR le ira T IF AN INTER cae OCCURS 
176456 sr A PREVIOUS INTE 
176450 100007 clip ae #100007 : lew CK me LEVEL 
Ht awe ONT ERUP F REV IGUSLY OCCURRED AT LEVEL 7 OR HIGHER 
TINTLI: TSTB acs Sennca Fy ROLLER READY IS SET 
HL Lapy WASN’T SET 
000232 ‘ , oes DADINT ieee Ensue it RET GRN ABORES 
000232 CLR sizes ie ia AN INTERRUPT OCCURS 
CMP (SP)+, (SP)+ $10 Tack POINT 
176412 TST INTELG PREVIOUS EP ac 
400907 176402 MOV #100007, iNTFLG ; sno The 
14056 TYPE,  MSG4 MES INTERRUPT LEVEL WAS” 
010420 MOV #7, PRINT 4 
10460 JSR x2,PR NT baa: ING ZERO’S 
176356 100007 SET7: CMP NTFLG, #100007 nan PREVIOUS LEVEL 


sTi2’ 
TEST FOR” AN INTERRUPT ON LEVEL 6 


INIT ; INITIALI 
aTINT12, QADINT sgeTUE A 


* 2 ADINT)’: 


; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 








ste - 





wom 
bo 
mo 
=. 





: 
3 





Mi T INTERRUPT ae PRIORITY 
ie, HEPA Fela ieee 
Bee #100006 ; cx PREV] LEVEL 

STNTERUPT PREVIOUSLY OCCURRED AT LEVEL 6 OR HIGHER 
ps aus pear eec a READY IS SET 


” 
ee — ie nTEREOP RAT. 4 Ten ee tos OCCURS 


+, (SP)4 } stack Porn 


TINTL2: 


GOBRRABARQRAPBES EASES 









CD11 CARD READER DIAGNOSTICS 


MAINDEC-11-D2CDA-C-D 
DZCDAC. LOGIC FUNCTION TESTS 


iy 
aac 
iis 


FBRSRRERR ie 
EAS foun 


O~—-O00 


& 


TEST FOR AN INTERRUPT ON LEVEL § 
: SCOPE 


Q 
1) 


Hm 
GIwUTf 


- 
— 
¥ 


: 


= 
om 
¥ 


: 


7 


8 


ane 


e443 


NW 


: 
Reve 
NN 


a tayace 


INTERRUPT ON LEVEL 4 


Nai So 


“NT 


wo 
om 


ee es he be = ae Bn pe Bae = he he Bn Be a bs be Fe Bo = bs be Be Be bo ho Be 0 bt bo ho hh hd he 1 he ho he 
w 


RERERRRNRE Ses ael taal inlaid ee ees petri ate 


a ees 


g 


LOe 
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NTFLG jEMECK FOB re. PREVIOUS FLAG 






ET6 
#109006, iNTFLG iS T FLAG 

TPB RINT! fi Nts aoe Myhe INTERRUPT LEVEL WAS" 
42, PRINTS SAND SUPRESS LEADING ZERO"S 


EST 
ee #100006 ;CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 





attii3 poli SET Ret OORESS 10.7 
Fein e(ADINT) “pETUR Re TUR PRIORITY 76 it een 


#200; Fs SET PROCESSOR T 0 LEVEL 4 OBRTORITY 
#-80:, a ie Up UP 6 READ 80 COLUMNS 
SBUFBEG, aC 

#101, ‘acDS ;SET if AND READ 

5t0 *WAIT F SONT READY 

ScADINT) PS inreRmaels. TO HIGHEST PRIORITY 


Nee ~~ ne T i's A INTERRUPT OCCURS 


14 
NTFLG, a100008 | HECK LEVEL 
EST14 at TF 
TESTIN NTERUPT PREVIOUSLY OCCURRED AT LEVEL S OR HIGHER 


acos READY IS SET 


‘ te AE — SET 

$033, DADINT Letina ABORESS 

deese 19 RHALT IF ON INTERRUPT OCCURS 
aay 


(SP)+, (SP)+ ; 


INTFLG PREVIOUS FLAG 

SE : BRANCH 

#100005, INTFLG ;$ ; 
4 Hy INTERRUPT LEVEL WAS 

#5, PRINT cra 

12 PRI NTS : Gs ING ZERO’S 


{NirLe. #100005 ;CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 





ears SHOINT te S50R PRIORITY 10 7 


2(ADINT)’ ; TURN PROCESSOR STATUS 








Or 


PSRRPER BOS eR RETR S 5 


i BSSomione 


uD 


-_ 


as 
Set | 


ae 


mw 


Oo 
be 
8 
— 


Be 


oO~ 
< 
N 


e 


: 


a2 2 
28 8 


satay 
ni atet 
= £o 
eoR° 
ete 

“NTu 


nae 


hee 


8 
Gna 


BESEBBE 
ae 


ee ee oe a Sa ce 
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b= O— & B= 0 & = 8 0 = FF OB Db bb = 0 bh = = 0 = PO = bb = 0 Ob bb 0 0 8 0 bb = = = = bh 9 Bh ph pb ps 


RESRESSBVRRPOR Saw Non cow -oSSVeENLoUeLS 


8 


CARD READER 
FUNCTION TE 


175136 
175130 


175102 


100004 


17S536 
100004 


174754 


17474 
174732 


174704 


100003 


- TEST FOR AN INTERRUPT ON LEVEL 3 


mmam sy 


See raSeennenee 


402 
wr 


tat 


2aDee 
“a ot 


TESTI6 
acos 
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#340, PS SET PROCESSOR PRIORITY TO 0 

PS : SET PROCESSOR 19 suit TD 3 PRIORITY 
#-80', acDC Set Ue 6 READ 80 COLUMNS 
SBUFBCG, aCDA 


T OP BU 
Bgl ‘StS SET EMT eee BeUDTE™ 


2(ADINT),PS REST PROCESSOR TO HIGHEST PRIORITY 
a ;DISABLE INTERRUPTS 
#232, dADINT j CHANGE IN rem RETURN ADDRESS 


diese :TO CAUSE A HALT IF AN INTERRUPT OCCURS 
INTELG i ST FOR A PREVIOUS INTERUPT 
INTELG, #100004 ; CHECK yPREVIOUS LEVEL 
moat TE RUPT PREVIOUSLY OCCURRED AT LEVEL 4 GR HIGHER 
acos ; MAK Y T 
acd E SURE CONTROLLER READY IS SE 
sueMnCH IE See READY WASN’T SET 
acos ‘DISABLE FURTHER INTERRUPTS 
#232,  dADINT CHANGE INT TERRUPT RET 


ADDRESS 
ae ae ine AUSE 8 HA HALT IF AN INTERRUPT OCCURS 
INTFLG haa PREV ISLS FLAG 
SETY  —: BRANC 
#100004, INTFLG ; kr Ee SEND LEVEL 


INTEL, #100004 ;CHECK PREVIOUS LEVEL 


47 INIT $ 
#TINTIS, JADINT i9E 


i PS ; OR 
Ue Ba a EAH et 2 Ue 
WBLF BEG, ICDA T UP Bus 


a “— et NTERPT ENELE AD. REA “te 


scfginn), PS if Pere PROeESOOr TO HIGHEST PRIORITY 
4 


#232, @ADINT TO Oa nem RETURN ADDRESS 
$ Hest eT F AN 0 OCCURS 
S 
TES 2 
INTFLG, #100003 pe, 
TESTI6 % tue 
VIOUSLY OCCURRED AT LEVEL 3 OR HIGHER 


ois | SPYTROLLER READY IS SET 


; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 





MAINDEC-11-DZCDA-C-D 
zCdAC.P11 


~SSoUF RIG SLe RRL Ss Sansa SOS 


oon 


Va) 


Ob bb - bb b= 0 0 b= 0 BF 8 b= 0 = 2 8 0 0 0 0 8 0 0 2 0 = 0 0 0 0 bs bb 0 bs bs 2 bh - 2 B® 2 b- 2 Oe Fe he ph = pe 
ee 


Ce a dd ed ed el el ed ee ee ee ee ee 


000232 
000232 


175350 
100003 
014056 
000003 
007416 
175314 


CD11 CARD READER DIAGNOSTICS 
LOGIC FUNCTION TESTS 


175340 
007356 


100003 


7454 
bocce 
174516 


174470 


100002 


175124 
007142 


100002 SET2: one 





HLT 
sTEST FOR RAN INTERRUPT ON LEVEL 2 
* 388 


HL 
;TEST FOR AN INTERRUPT ON LEVEL | 
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CONTROLLER READY WASN’T SET 
acs DISABLE FURTHER INTERRUPTS 
#232,  dADINT ; CHANGE a ate 4 RETURN 


botaren AN INTERRUPT OCCURS 
(SP)+, (SP)+ {RESTORE STACK PO 





FLG ‘CHECK FOR PREVIOUS ER ac 
SET3 BRANCH fF FLAG SET 
#100003, Tie ;SET FLAG AND LEVEL 
NT MESSAGE “THE INTERRUPT LEVEL WAS” 
#3, PRINTI ‘TYPE #3 IN OCTAL 
47" PRINTS "AND SUPRESS LEADING ZERO’S 


TEST16 
INTEL Gs #100003 ;CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 


INIT _—; INITIALIZE 
artnTi6, VADINT ;SETUP RETURN AQDRESS 


pete be ey is RN PROCESSOR STATUS 
#340 35 S 00 


, PS SET P aa PRIORITY T 
soup’ Sec «FET URC EBCERN COUNT FO REDD Oe COLUMNS 
BEG, aC : SET S 
sti + eRe ‘Et YATEROPT PREBLE AND READ 
acos WAIT FOR CONTROLLER READY 
ScADINT), PS ; RESTORE PROCESSOR TO HIGHEST PRIORITY 
#232,  dADINT CHa AGE INTERALPT RETURN 
tie 7h | Rede ha Om 
ESTI Teer FoR prev 
INTFLG, #100002 ;CHECK PREVI OLE LEVEL 


a baled OCCURRED AT LEVEL 2 OR HIGHER 


es pas Wie 3 CONTROLLER READY IS SET 


TROLLER READY WASN’T SET 
4 ie mt tog! 


to DADINT DRESS 
Gar (SP)+  :=REST stack Silt aN ia 
INTFLO im ae Bue FLAG 
SET2 _ ; BRANCH ay "on 
Sh ,INTFLG ; VEL 

RIN MES “THE INTERRUPT LEVEL WAS” 


15° PR He LEADING ZERO'S 


ae #100002 ;CHECK PREVIOUS LEVEL 
; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
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DZ2CDAC.P 1! LOGIC FUNCT 
1192 003% 4 TESTI7: SCOPE 
ii eas nats 006474 JSR “2 INIT s INITIALIZE 
119% 003440 Olevie 003540 MOV aTiNTi7, QAOINT ;SETUP RETURN AQDRESS 
1195 poses pse7e si 0 te gIs e340, ‘eS i561 PROC SSOR RIOR TY 107 
119% 1e7be 7 MOV Ps B(ADINT) SE TURN PROCESSOR STATUS 
1197 OO3460 O4e76 174310 BIC #340, : SE PROCESSOR PRIORITY 10 9 
1198 003466 767 174202 gts #000! pe ‘eet PROCESSOR TO LEVEL 0 PRICRITY 
1189 003474 012714 177669 MOV 8-80:, acDC  ;SET UP COLUMN COUNT TO READ 80 COLUMNS 
1200 003500 gie?is 16000 MOV SBUFBEG,OCDA SET UP BUS ADDRESS 
1201 903504 9 13 000101 MOV #101, aCDS  ;SET_INTERUPT AND READ 
lege oc3519 10571 TSTB Nh} WAIT FOR CONT READY 
1203 O0035le 100376 BPL 2 
i204 14 7? oo00c2 174254 MOV B(ADINT) ,PS ;RESTO PROCESSOR TO HIGHEST PRIORITY 
1505 1 2 CLR 0S D INTERRUPTS 
1206 l27le o00e32 MOV #222,  @ADINT CHANGE INTERRUPT RETURN RODRESS 
leu? 000232 CLR ase3e :T0 ¢ A HALT IF AN INTERRUPT OCCURS 
1208 194000 HLT sINTERUPT DIDN’T OCCURE WITH PROCESSOR AT LEVEL 0 
' 208 TEST20 
| 810 105713 TINT1?: TSTB  acOS ;MAKE SURE CONTROLLER READY IS SET 
lel 100401 eH} +4 IF SET 
lel l HL :CONT READY WASN’T SET 
1213 13 CLR ;O1 THER INT TS 
iel4 l2 0002 MOV te GADINT j RANGE INTERRUPT FE ss 
| els 0002 CLR tS, sali 10. 8 HALT i AN INTERRUPT OCCURS 
| 1817 poses es 174736 Ter Inte. CHECK FOR {PREVIOUS SER ac 
1219 1 00001 174726 MO no iNTFLG me is 
| e290 14056 TYPE, RINT Se 1 “ine INTERRUPT LEVEL WAS” 
1 12767 p50001 006744 MOV #1, PRINT! Nee 81 1 
| 282 19 787 ISR %7' PRINTS * AND SUPRESS OC EADING ZERO’S 
2c b53616 bob? e? 174702 100001 SETI: CMP ine, #100001 ;CHECK PREVIOUS LEVEL 
i 
; 003626 104000 HL ; INTERRUPT PREVIOUSLY OCCURRED ONLY AT A LOWER LEVEL 
| 1558 903630 104400 
Ae. fi TeEeT FOR NO” NO INTERRUPT OCCURING a i ruler T AND REST CLEARED 
i 003632 767 JSR ie CSR TO 
0036 36 3 HOV atint men ADDRESS 
} 0, 


a Bhoom'’ a ts” 
oe rH 1 ve tae Reap 1 COLUMN 
#100 ‘tt 
COUNT ir AP 

Me 





eegrmesespgsars 


(ADINT) ,PS 3 std PROCESSOR TO LE 7 
30 FURTHER INTERRUP 
ONT20 
| (SP, (SPI4 gpm 
URTHER INTERRUPTS 
| ase3s2 : CHANGE INTERRUPT RETURN ADDRESS TO 
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1248 003734 ol2712 000232 MOV 8232,  dSADINT ;CAUSE A HALT IF AN INTERRUPT OCCURS 
1250 003740 104400 TEST21: SCOPE 
l CHECK FOR S NUL TANEOUS INTERRUPTS ON HOR MORE THAN LEVEL 
l go37¥e O04767 O0b1b6 JSR NITIALI rie ee 0 Ze 
1253 Ole7le oo4dle MOV atintas, eeOIN URN ADDRESS 
l 00375¢ ? 000349 74016 SIS #340, ‘PS fT pROEEGOR | oi "TEER. ? 
1 16762 17401 MOV PS 2(ADINT)’ SORE PROCES 
l 003766 76 174002 BIC #340, PS ;SET PROCE 0 evel US 
l 12714 i a-1 acne; T Up cocUen COUN 6 READ 1 COLUMN 
1258 004000 012715 016000 MOV SBUFBEG, CDA SET UP BUS ADDRESS 
1259 OO4004 ble713 000191 MOV #101, acds 5ST INTERUP FOOREBLE AND READ 
1260 004019 9R sHAIT F INTERRUPT 
126] l TINT21: CMP (SP)+ iREST STACK POINTER 
l 904014 Ole71 004036 MOV afinnes, GADINT ; CHANGE RETRUN ADDRESS 
1263 l CLR PROCESSOR TO LEVEL O 
1265 Swose Bese? 173742 MOV 2(ADINT) ,PS el as PROCESSOR TO LEVEL 7 
1266 OO4034 O00402 BR CONTE] 
1267 D403 TINAZ1: CMP (SP)+, (SP)+  ;RESTORE TACK 
1268 1 HLT THE IN T OCCURRED AT 2 LEVELS 
1269 OO4O42 00501 CONT21: CLR acos *DISABLE I 
1270 OO4O44 005037 000232 éLR ase : CHANGE rite PT Be TURN ADDRESS TO 
E74 Oo40S0 O0127le O00e32 MOV ,  @ADINT ;CAUSE A HALT IF AN INTERRUPT OCCURS 
| 575 poyosy 104400 TEST22: SCOPE 
1274 :CHECK THAT NON-EXISTANT MEMORY IS DETECTED PROPERLY 
oe DO4OSE 767 006052 JSR “? INIT sINTTIALIZE ZE CSR TO ZERO 
| 1 HO4062 le7le 004126 MOV sTiNT22, SADINT Ss 
1277 OO4065 000340 173702 BIS 8340, :SET PROCESCOR 0 LEVEL 7 
1278 bowars O167be 732676 000002 MOV PS g{ADINT) | “STORE PROCESSOR STATUS 
1279 iGe 173666 BIC 8340, SET 10 LEVEL 0 
| 1280 OOM1IO O1e714 1 MOV 8-5 acoc }4=._-«S SET-UP 6 READ 1 COLUMN 
' 3281 004114 = l MOV #158000, 308 ser Up TO NON-EXISTANT 
| lege oo4l20 O01 161 MOV #161, ‘ac : SET T AND READ, X MEM BITS SET 
| 1>3a 004124 BR : SWAIT FOR INTERRUP 
| 184 Oo¥1e6 TINT22: cH (SP)+, (SP)+ RESTORE STACK 
«TB BIR tees boss Soe BBSS° Sap nT TENURE TA RAR TE ART INTE RRE OECURS 
| 1387 post 105713 TSTB Hai fetta Fon CONTROLER READ 7 
1e88 142 100401 BH} 44 “BRANCH IF SET OK 
1289 CO4144 | HL : CONTROLLER READY DIDN’T SET 
| 1291 nae 005713 TST acos SREREA TF EY (BIT 15) 
} 1s0 1 BM 44 
| i543 oo04i52 } art T 15 NOT SET 
as 154 032713 001000 BIT #1000, acos CK FOR NON-EXISTANT MEMORY (BIT 9) 
2 Be ROM a 
i oy lee 1 HL : iBRR 
15 ate 0327 3 000040 be #40, acos i Sreeu oe Ee XTENDED MEMORY BIT 17 SET 
134 i72 1 HL ‘EX-MEM BIT i GOT CLEARED 
$303 004174 032713 00020 BIT #20, acos vate FOR EX-NEM (BIT 4) 


DZCDAC.P 


BNE 4 ;BRANCH IF SET OK 
004202 104000 HLT EX-MEM (BIT 4) GOT CLEARED 


pove0s 032712 O7&417 BIT 8O76417,3CDS  ;CHECK FOR ANY OTHER BITS 
210 001401 BEQ +4 ‘BRANCH IF OK 

OO4el2 104000 HLT EXTRA ERROR BITS SET 
004214 022715 160002 CMP #160002, 2CDA ; CHECK ADDRESS BUFFER 
104 HLT { ‘BUS Bie StORESS” REG CHANGED 
ge27 4 177774 CMP 4, acoc ; CHECK COLUMN COUNT REG 

; ‘COLUMN COUNT REG CHANGED 


RETURN TO TESTI iF SET, AFTER RINGING BELL 
INTO THE DATA TES 


8 
g 
8 
3 
S 


b= P= = pH 


Suan 


GWIWWIWUIWLILIL) 
= bn0 Pe 60 bs P= b= pe 
O@DNIMU ££ WwieK- 
_ 
Sra 
a 
x 
eur = 
3 —4 
82 


004236 032767 900200 173324 T #200, SWR 
00444 001406 Q DATST 
bowers 767 005710 JSR “7 

005167 174250 COM TRELG ; TOGGLE TRACE FLAG 
OO42SE O00167 1 IMP RESTRT 


a an tents Gal te a 


;DATA RELIABILITY TEST 
Wetistiititititiiiititiititiittiiiiiitiiitiiititiititiritititiittittit yy 


AgHECK SWR_FOR TYPE, OF DECK BEING oe .: por ALIZE POINTERS 


BIRT SSA RRECC HO OBA C OR Se NOON Hees 


004262 005067 9022% CLR 
005067 CLR ; SETUP aN TABLE AT BEGINNING 
sss 7 ee CLR LG VENTS PR NTING OUT HEADING 
DOHe7e 7 haono 173264 BIT nel SWR i CHECK IT 4 SHR F A ogee 
1 INCD, TSTART ‘BIT 2 Bit 2 set, PoRB  BINGRY BINARY POINTERS 
Galt Biever Glet Heim == YN Reg To 
oo g127H 1S6 ALP Boy Sat PED TSTART ‘LOAD PbAD ALPRANURER te ‘ TOBE POINTERS 
bei ante NOV 4 Bear 
Tata CONTD: ney reece » pce TRAP FLAG 
BNE TRP : F WAS SET 
000340 173406 NOTRPI: MOV PS : BIT 
010000 173170 TRPI: er toa, SWR ; CHECK sul To INHIBIT TRACE TRAPPING 
173366 MOV #360, PS Heer te T 
1 poses DCNT1: JSR “7, INIT S$ INITIAL READER STATUS REGISTER 





b+ 0-* & = b= = &— 6 — & = b= b&b B= & + b= b= PO -3 & = BB 9-2 = H+ =< bo P= = BO 2 BF = b= + HH 2h = = = dh = b- 2 > oH 29H 2H o 


wR 
o 
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OZCDAC.P11 DATA RELIABILITY TEST 
1360 :SET UP INTERRUPT SERVICING AND START READING 
i OO44:4 gie7ie Oo4S46 ’ Hoy oY aSRVC, ge NT 3 RE TURN POINTER + 
ates 1e5e Posaua Aobaos BiG 83 * BtROINT)’; a EEO ESOR eit 
16 oc20S6 MOV TStART. R Ri T UP TABLE POINTER 
1 016000 MOV sBUFBEG,R i3et UP BUFFER POINTER 
le767 177660 002032 MOV 8-120, ‘SIZE ;SET UP “SIZE” 
012767 177660 MOV 8-100, OFFSET 
ot 714% O02020 MOV SIZE, ;SET UP COLUMN COUNT 
10015 MOV RO 3CDA SET UP ADDRESS REG 
0 e713 990109 MOV #100, acOS ENABLE INTERUPTS 
ne 10 173070 BIT #10 SWR i CHECK FOR PACK MODE ONLY 
001 CDREAD Sete FoR Trace 
: 000004 177570 BIT 84 aeSWR s CHECK Mi I MODE ONLY 


La PAKSET Ser uP FOR BACKING MODE 
$060, acos : CHECK FOR DATA ERROR 


QCOC, DERCNT ;SAVE THE COLUMN COUNT 
#4000, @CDS § ;CHECK FOR DATA ERROR 
BKGND1 "BRANCH IF SET 

DERCNT CLR COLUMN COUNT SAVER 


Se Srna I 
2 


SERVICE ROUTINE —, RUNS DATA RELIABILITY TEST 
acos CK READY 


. UPT 
105713 SRV TSTB 
100401 BMI +4 RCH TE F SE 
ae Bt eer Check FOR DATA ATA PA MODE 
PSR ? JUMP TO PACK MODE ROUTINE 


8 


' Pea77 , WOS : ERBNG Abt BR ERE Ne AND 7 


;CHECK COLUMN COUNT 


#s toate dou REGISTER NOT 0 


a 
eee FRE BE 
# 


Peet Per heir iehertt Lid tin tw RERPRRRE taste tate 
g 
ERS 


RIGGS EGTE ES GL) MUTT, 
ee 
SR 





eres cone ire ioe: omy fa 
403 eebie? 001650 ISRRT: oe M TEND 
41 MOV § TSTART, RI 
BBS BS be Bee 
1415 Boles 000120 3 CLENT, #120 KEEP TR END OF CARD 


b= 0 0 & ob Ob & 8 Ob b= bb = 2 B= 9 OB = B+ OF & = = OF b= &  &- 0 B= 9 §-< 2 & ~~ & = = Po BH P= B= 9 — = P< FB Pe Pe 












MAINDEC-11-D2CDA-C-0 
DZCDAC.P11 





= 


a 


er oe oe 


SSSECHF TERS SORA SOOLE SSS 


BB Be Bt ht Hh = & = 2 FH & 2 B= Hae b 2 H 9 & = fo & ~< B- 2 Os Hb o 
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BNE ISRLP ;BRANCH IF NOT fio OF CARD 
138 NXCRD ;INC T NeXT BRD 
T ial iE :UPDATE TABLE 8 NTER FOR NEXT CARD 





ares : Fi thls NXCRD  ;G0 TO NEXT CARD 
T ;CHECK FOR IMAGE MODE ONLY 


ze #BRANC 
% PAKSET T UP FOR PACKING MODE 
ISRNX1: JMP ;CALCULATE “SIZE” AND RETURN 












“DATA ERROR WAS DETECTED, OUTPUT ERROR PRINTOUT 
tSRDE: TST COCNT 5 CHECK FOR FIRST CARD 
ISRD1: rey =(h} ee S FROM POINTER 
CMP (RO)+, (R14 ST DATA 
BNE 1$ BRBNCH F NOT THE SANE 
ADD 842, Rl ie THE MAGIC NUNBE 
ch RI, TEND CK CHECK FOR RAP AROGRID 
SUB R 
2s: pe Hach, RL) we OR DOUBLE MATCH 
842, R : SUBTRAC MAGIC NUMBER 
CH Rl Fe rART : CHECK FOR RAP AROUND 
EGO #240, Ri REP FEU. 
ISRRt *GO CHECK REST OF DATA 
s42, T HUMBER 
SPOR Fbraar oa "REP 
BGT 1$ 
ADD 8240, Rl 
1S: CHP RL TEND 
MOV } TART, Ri nisi 
ISRD2: ety , SWR pa FOR Ww Itt PRINTOUT 
ISR y, TYHEAD ; I CDCNT, T 
MOV -(R1),PRINT! :TYPE -(R1) IN ars ~— 
JSR. cigs :TYPE LEADING ZERO’S 
MOV’ =(RO),PRINTL ;TYPE -(RO) IN OCTAL 
JSR AZ APRINTR, |S TYPE LEADING. ZERO’S 
ISRDE4: For - ; F ON ERROR 
mtr ot ONT ON ERROR SET Oem MOT SET 
ER ISRRT ' 
REE Ea Me SR 
TEROUS, THEREFORE THE DATA TEST IS RESTARTED 
ishERe BMI TNERANGH H ON ERROR BIT 1S 
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1472 005134 104000 HLT sERROR BIT 15 NOT SET 
1473 005136 oo044s BR ISRST 

475 005140 032713 010000 ISREL: BIT #10000, 3CDS § ;CHECK FOR OFF-LINE 

1476 005144 O01412 BEQ ISRE2 

1477 0051 032713 040000 IT #40000, QCDS § ;CHECK FOR CARD READER ERRCR 
1478 0051 I NE + *BRANCH IF SET 

1479 005154 104000 HLT OFF-LINE BUT NOT CARD READER ERROR 
1480 005156 000411 BR ISRE3 

1482 0051 7? 001062 JSR “7 LASTCD ;CHECK FOR L I CARD 

18S a rites 8GE ISRNC BRANCH IF SOTH CARD 

1484 104000 HLT :CARD READER ERROR BUT NOT 80TH CARD 
148 005170 000430 BR ISRST 

1487 005172 032713 0O40000 ISRE2: BIT 840000, 3CDS § ;CHECK FOR CARD READER ERROR 
1488 005176 001401 BEQ +4 BRANCH IF NOT 

1489 005200 104000 HLT CARD READER ERROR BUT NOT OFF LINE 
1491 032713 o20000 ISRE3: BIT #20000, acos 

1492 001401 BE +4 

1433 104000 HL sEND OF FILE ERROR (M1200 ONLY) 
1495 032713 oo4000 BIT #4000, acDs 

14% 001401 BEQ . 

1432 104000 HLT sDATA ERROR 

1499 2 002000 T #2000, acds 

1500 ooi40 i Q ‘ 

150 1 HLT _ sDATA LATE ERROR 

1503 032713 001000 BIT #1000, acos ~ 

1504 00140 BEG +4 

1505 T ;NON-EXISTANT MEMORY ERROR 

1506 13 077000 BIT #077000,9CDS CHECK ER BITS 

1507 001001 +4 ‘BRANCH IF AT LEAST ONE 

1508 104000 HLT : NONE ERROR BITS SET 

1508 000167 001220 ISRST: JMP DATRST RESTART THE ENTIRE DATA TEST 
151 177475 PSR: BIT #177475, aCDS ITS EXCEPT nd? & AND 7 
tets arta BNE SE RENCH 10 

1513 74 TST acne scHE CK CHECK COLURN Coun Ree 

ite 1 ? +4 

1Bie if 0 001 HOV RO BUFEND ; 

151 7 001204 SUB SIZE 

1518 715 SMP BUFEND, aCDA 

Oe ie to 

1 : 6 001164 173200 PSRNC: AbY SIZE, COUNT SET UP COLUMN COUNTER 

1 4 PSRLP: CMPB (RO)$, (RI)+ TEST DATA 

1 104 BNE PSRDE ; F DATA 

1 020167 001166 PSRRT: CMP Ri TEND =; CHECK F oF FABLE 

1 } BMI F NO 

1 16701 001156 MOV TSTART, RI ;MOVE POINTER TO TOP OF TABLE 
1527 005267 173156 INC COUNT CHECK FOR END OF BUFFER 





MACY11 27(732) 





MAINDEC-11-D2CDA-C-D 
02 Pll 


es 


b= 6 & + & = b= B= b= 9 8 


;DATA EAR WAS 
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;BRANCH IF BUFFER END 
sKEER TAG TRACK OF pete 


END OF 
; BRANCH "Tr ROY ENO OF CARO 


NXCRD :60 T 
Ponte TABLE FO POINTER FOR NEXT CARD 


NXCRD ;GO TO NEXT CARD 


TOTERT ;MOVE TABLE POINTER TO IMAGE TABLE 


Rl ; UPDATE eee on aries 
Ri COMPENSATE FOR BYTES 
acos CLR PACKING MODE BIT 
;CALCULATE “SIZE” AND READ MORE CARDS 


DETECTED, OUTPUT ERROR PRINTOUT 
CDCNT 


aeeseepeponuaunnonnnnnE & 


a 


rm 
= 


cd 


b= BO = B= HO b= 2b = H-2 & > OF B= = Ob Fb Dh = 2-28 Bh bs B= a = + bo = ba OB ep oh OO eh Fb ope 





na RENEE RRR REALS SRA A at Sel aula bast 


CMPB 
BNE 
che 
BGT 
ADD 
BR 
ene 
BGT 
ADD 
CMP 
BNE 
MOV 
CLR 
‘ 
YPE 
MOVB 
Hi 
JSR 
CMPB 





;SUB 1 FROM POINTER 
(R1)+ ;TEST DATA 
; BRANC 


» SUR oc su13 FoR IN g {MBIT PRINTOUT 
TYHEAD ;TYPE HEADING, DECK, CDCNT, CLCNT 
a 1 eNO enint NTO PRINT BUFFER 


PRINTA =; ; MOVE PRINT Ht ai PRINT BUFFER 
(R1)+ RE 1p 












MAT C11-D2CDA-C-0 
02 

1584 005767 
1585 100001 
1586 005640 000000 
1587 005642 000631 
1588 

1589 

1530 44 100402 
1591 4B 104000 
a. an ene 
“1594 oosese 932713 
1595 005656 901414 
159 005660 032713 
1537 005664 00100 
123 BoeesB 

1600 005676 001001 
teas foeras Ataver 
1603 005710 032713 
ee fers Bas 
1605 005722 Barons 
1607 005724 104000 
1608 005726 000414 
1610 005730 004767 
1611 005734 goe4ce 
1618 05736 16 
1613 005742 104000 
1614 005744 000167 
161 3 
i OD cH 
1618 005756 104000 
1620 005760 032713 
1621 005764 001401 
1D emealeet caaane 
1624 005770 032713 
1 005774 00140 
: 005776 1o4000 
1628 006000 2713 
1630 SoEboe 

1631 096010 3 
te Deb Ie rt 
1634 006020 000167 
1635 

ies 

1638 

1639 


} 


171732 


GBH RETARRERER ere=T»= 


171672 


172612 
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PSRDE3: TST SWR 
BPL +4 


HALT 
BR PSRRT 


pUNTERUPT DUE TO peek KIND OF ERROR 


;CHECK FOR HALT ON ERROR 
BRANCH IF HALT ON ERROR NOT SET 
HALT ON ERROR SET 


PSRER ca ;BRANCH ON ERROR BIT !5 
HL ‘ERROR BIT 15 NOT SET 
BR PSRST 
PSRE1: BIT #4000, acDs 
BEQ PSRE2 sBRANCH IF NOT 
BIT #2 acos 
BNE +4 
HLT 
BIT 820, SUR 
BNE +4 BRANCH IF BINARY DECK 
MOV #-120, COUNT  ;ONLY READ ONE CARD 
PSRE2: BIT #10000, SCDS § ;CHECK FOR OFF-LINE 
BIT #40000, 2CDS § ;CHECK FOR CARD READER ERROR 
BNE .+6 BRANCH IF SET 
HLT OFF-LINE BUT NOT CARD READER ERROR 
BR PSREY 
JSR “7, LASTCD ;CHECK FOR LAST CARD 
BLT 1$ ; 
IMP PSRNC 
1S HLT ERROR BUT NOT BOTH CARD 
IMP DATRST RESTART THE ENTIRE TEST 
PSRE3: BIT #49000, aCDS —; CHECK CHECK FOR CAR CARD READER ERROR 
hy . GARD READER ERROR BUT NOT OFF LINE 
PSREY: OM 8<0000, acos 
HLT ' ;END OF FILE ERROR (M1200 ONLY) 
BIT #2000, acds 
BEG +4 
HL ;DATA LATE ERROR 
BIT #1000, 3CDS 
BE 44 : ca 
Bs #077000, cds ECR P ERROR B1T ‘be 
; nee BITS SET 
PSRST: JMP :G0 CHECK 


ae ON og 
Has Bel aC 





Es 


rt ee 
tlie 


READ COMMAND 














DZCDAC.P 


ee * 


006104 
1654 906106 
1655 
i 
ies pt 
ie Bus 
hee: ete 
is BENS 
1664 
1665 
i 1 
166 1 
ie ie 
i Bie 
167 1 
1 1 
16 1 
1674 006174 


A 
= 
T 





> 


A 
= 


oe 


ie7@ Obes 


SBRRRe 
bes 


TeOrrrrewrwrwre 


oo 


SS eae 


F 
3 
a | 


NEN 


eee: CS 


o 





CO1l CARD READER DIAGNOSTICS 
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DATA RELIABILITY TEST 


O004S6 
177660 


000212 


000212 


0004Se2 
000444 
000432 
000424 


000409 
000374 


000216 
000120 


SRETRN: ab? fad SIZE 
MOV #-120, OFFSET 
SRETR1: BIT #001000, SIZE 
SRETR3: MOV #120, OFFSET 
SRETRY: JSR 47 LASTCD seek uf Se Oe phan 80 CARDS 


NOV TGUFEEG, RO.” Se ean E tit 


MOV RO acDA 
INC achs 
RTI 
- SUBROUTINE TO SET F BACKING MODE AND MOVE THE POINTERS FOR THE DATA. 
PAKSET: ADD 1 TART ;MOVE TABLE POINTER TO PACKED TABLE 
ti RI sUPDATE TABLE POINTER 
SUB Ri COMPENSATE FOR BYTES 


Bt a a°0S ;SET PACKING MODE BIT 


;SUBROUTINE TO TYPE HEADING, TYPE OF DECK, CARD COUNT, AND COLUMN COUNT 


TYHEAD: Ist ERFLG ‘Seo FIRST ERROR 


INC ERFLG 


MSG13 HEADING FOR DATA ERRORS 
NOHEAD: Mad re wee OF DECK 
DECK: un deeneld TO DECK TITLE 
Ny COCNT, PRINT! N 
ik tnINih iar ie 
C COCNT 
YPF,, 
INC 
MOV CNT. PRINTI na Bat 
PRINTR ie reat 
C CLENT ae RO OUNT 
YPE, SPACE 
RTS “7 
; SUBROUTINE TO CHECK FOR LAST CARD 
LASTCD: fe 
LSTCD1: IN 


5 oe TEMP 


s SUBROUTINE TO KEEP TRACK OF CARDS 
AXCRD: CLR CLONT ;RESET COLUMN COUNT 








4k a | ememaalii 
ZCDAC.P11 


Ee * 
o 


Run peteeeteirytetetetete io fatn tr tat 
= 0 oo 0 oe pe pe 
—K—OWONOWCWVH-O 


TEAEEELE 


BESSFREGSASIONUP ORAS DONOR 


b= 0 =o +6 b+ 26 b = b= & =< &  & = B= b= & > BF = FO — Bb — & + 0-2 BD 2 6 = = 8 = = 2 B= = 2 pe he he 


a 
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DATA RELIABILITY TEST 


000204 
000200 000120 


003622 
000042 


000040 


010000 


171202 HOOK: 


INC CDCNT sKEEP TRACK OF CARDS 
CMP CDCNT, #120 CHECK FOR BOTH CARD 
GE ALLDON 
TS “9 ; RETURN 
ALLDON: TST (6)+ sCORRECT STACK POINTER TO REPLACE RTS 
CMP (8) (6)+ ; CORRECT STACK POINTER TO REPLACE RTI 
JSR %7, BEL NG BELL 
MOV asde, 40 :LOAD CONTENTS OF SOFT VECTOR 42 
BEQ HOOK! *BRANCK IF NO HOOK 
RESET :CLEAR 170 
ISR “7, (RO)  3RETURN TO MONITOR 
NOP 
Me 
BIT 840, SWR ;CHECK SUR FOR HALT AT END OF DECK 
BEQ ONL INE sCONTINUE IF NOT NOT § T 
HALT 
BR DECKCK 
ONLINE: BIT #10000, acOS ; CHECK hii OFF-LINE 
Reo rats sR ie F Rp PeroR (BIT 15) 
Bi} +4 : BRANCH If SET OK 
HL ERROR BIT 15 NOT SET 
fe #40000, acos OF St READER ERROR 
HL . or NO Due TO CARD READER ERROR 
T #023471, aCDS CK FOR EXTRA BITS SET 
Q +4 
HLT fri ERROR BITS SET 
SONINT, SADINT VECTOR 
tT - pik : ret INTERUBT 
BR 2 T ON 
ONINT: 
I IT #10, acos Stina 8 TRANSITION TO ON LINE 
HL Seal BY OTHER THAN BIT 3 SETTING 


; WHEN CONTINVITNG. An ONE Atk TA BROTHER, CHECK SW6 FOR TYPE 
TET EET ING Td GE. PERFORT 
BECKCK: y ogtpD SUR 7 omen iShEek Be 
’ 
3 fe TRT + RERUN bean Eistauction AND DATA TEST 
ets REeTORY bata Test 












eae 


MAINDEC-11-D2CDA-C-0 
DZCDAC.P 11 





CD11 CARD READER DIAGNOSTICS 


DATA RELIABILITY TEST 


apie 


m 


DERCNT: 
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Eto adores OF Bota Tap Teete TABLE 
NUMER % tm si BRINTOUT 


;DATA ERROR COLUMN COU 






MAINDEC-11-D2CDA-C-0 11 CARD READER g 


ROR FUNCTION TE 


“J 
o 
w= 


1000 
ER 
171770 ERCD11: MOV tage CD1000 ;CARD READER IS M1000 
Riecd: %?7 , SETUP 


Seine 


o 
o 


a 


™“ 
™“ 
os 


Soocaga cic jaa SP eR PPeP BRET ETE EAP EEERRER ERRER CECE: 


SS SST ST Ta 
OumstWwlrueO 
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;SETUP FO 


R ERROR FUNCTION TEST 
ER1200: CLR cD 


;CARD READER IS M-1200 





: JSR , ; INITIALIZE REGISTERS 
MOV uTESTA+2, RETURN ; SETUP Oe LOOP RETURN ADDRESS 
CLR ITMAX ;RUN EACH ERROR TEST ONCE ONLY 





;HALT SHOULD CAUSE DATA LATE ERROR (BIT 10) 
paueLo rien (BIT 15) 






SCO 
JS “7 INIT  ;INITIALIZE STATUS REGISTER 
TYPE, CRLF 
Type’ Nees  CHNELE BUS CYCLE BON CANS HTT “CONTINUE? ON THE 
TYPE; Neesy tRONGOLE uarie be CARD IS READ 
TYPE; MSGeS ; THEN PUT UP THe TH SUITCHES AND HIT 
TYPE; M5Ge6 *CONTINUE’ ON THE CONSOL 
TYPE;  CRLF- "MOVE MESSAGE UP ON TTY 

V #-77,._ @CDC  $SET UP COLUMN COUNT 

ADDRESS 


MOV #BUFBEG,CDA  ;SET UP BUS 
HALT 


INC —-acDS ISTART READING 

TStB 436 acs CHECK FOR CONTROLLER READY 

BNE +4 ‘BRANCH IF SET OK 

HLT CONTROLLER READY FAILED TO SeT 
TST acos ; CHECK FOR ERROR ( BIT 15) 

BNE 44 BRANCH IF SET OK 

HLT ERROR BIT 15 NOT SET 

BIT #2000, 3CDS § ;CHECK FOR DATA LATE ERROR (BIT 10) 
HLT 0 -- 4% DATA LATE BIT 10 NOT SET 


BIT #075577,9CDS § ;CHECK FOR ANY OTHER BITS 
BE +4 ; HIF OK 

| GEXTRA BITS SET IN STATUS WORD 
THE CARD READER GOING OFF-LINE SHOULD SET ERROR (BIT 15) 


= 


SAND OFF=LINE (8 ; : 
GOING BACK ON LINE SHOULD SET “TRANSITION TO ON-LINE" (BIT 3) 
+ 3sR x2 INIT sINITIALIZE STATUS REGISTER 


TYPE, SS R *STOP 
- re Teh HIT AAT Ne ON THE CONSOLE” 
PE, -3 ; ME UP ON TTY 
be #10000, aCDS ; CHECK 
+4 ; 
HL 


BIT He 
ierencn IF SE 
;OFF-LINE (BIT 12) WASN'T SET 


pee GRRNGH TF SE 


MAINDEC-11-D2CDA-C-D 


DZCDAC.P11 
1817 006740 
1819 f g06742 


SSS ORRRERERRSS 


_ 


+ 0+ b= b= = Bb -+ & + b= & 0 — B= = Bh PB 0 = = = Bh = = 0 Bb P= ho bb fh — pb - 0 bo hb = pb - 2 Bs ho ge 


NeSSR ORR CORUM DSS aR EGR SOIREE 


B88 §8s S88 §8 § 


eS 


Bh BH bee be bs bee gee or oe eo be 


2S BPRS ven oF FZ 


104000 
031327 


Te4080 


f 
ww 


ll 
ROR 


ch 


RD READER DIAGNOSTICS 
UNCTION TESTS 


HLT 


BE 
HL 


MACY11 27(732) 


aCOS, #067577 
+4 


CRLF-3 


#10, acos 
+4 

#10000, acDs 
+4 

acos 

+4 


#077567, ICDS 
+4 


; TRYING TO READ WHEN CARD RE 
HECK Taal INTERRUPT OCCURS WHEN THE CARD READER COMES ON LINE 


. TLOPC: 


TINTC: 


CONTC: - 


arinte, JADINT 
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;ERROR (BIT 15) WASN’T SET 

;CHECK FOR EXTRA BITS 

sbaNC WORD” ERROR 

;"PRESS rp READER ’RESET’™; 

;"THEN HIT *CONTINUE’ ON THE CONSOLE” 
;MOVE MESSAGE LP ON TTY 

tBRENCH TF FOR cae ton TO ON-LINE‘BIT 3): 
; TRANSIT ON “0 ON ON-LINE FAILED TO SET 
;CHECK FOR OFF-LINE 

Seed Plu. ser 
;CHECK ERROR (BIT 15) 

BARON el 15 tLeBReD 

5 creck FOR EXTRA BITS 

SENTRA A status BITS SET 


ER IS OFF-LINE CAUSE AN INTERUPT 
pINITIALIZE STATUS. REGISTER 

SET VEL 7 

oon ae 

i RBReSs CARD READER. *sTOP"@ 

MOVE RESSAGE UP ON TTY 

;WAIT FOR OFF-LINE TO SET 


;SKIP INTERUPT HANDLER 


*STOP’ SHOULDN’T CAUSE AN INTERUPT 
TURN FROM THE INTERUPT 


CHECK ee CED LER READY BIT 7 
Hat READY DIDN’T SET YET 
tERANCH TF ERROR agit 

; ERROR BIT fs) NOT SET 

s CHECK ct oe . em BITS 


ieratus WORD ERROR 





Pe 


S8 


a 


0 20 - —-— »~ 6 9 9 9s 


B32 


Sos) Ses SSS pes SS Sd as SS Bd Ss ree 


SOUR ERC Se RRL SERRE EIS 


> + 0+ b+ 0 -+ b= O-- O-+ & + B= + 


WO NMU £WITe 


a re a eee er 


e— 0-+ 0 0 0 = &— 6 - 6 = 8 =< 6 -+ b+ & <b = & = = & = B* = 6 =F -* 6-2 0 = B+ B-< H— = > * B= © H+ & < 2 H+ 2 9-2 §-2 Hh 9H =o 6 +0 oH mH —w 09 +H 
woOuovowonowww 
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CD11 CARD READER oY 
ERROR FUNCTION TESTS 
007170 MOV aTINTCA, ADINT sLOAD, RETURN POINTER 
000340 170626 BIS 8240, FSSOR TO LEVEL -7 
ieee MOV BE 2CADINT)’ babe RETURN PROCESSOR STATUS 
0 1706! BIC 4340, PS i$ T PROSSOR PRIORITY TO 0 
Inc :TRY TO READ AC 
WAIT FOR THE INTERUPT 
TINTCA: cup (SP)+, (SP)+ ;REST ACK 
S78 © aCDS CHECK ORE ONT Otten READY BIT 7 
BM +4 : H IF OK 
HL :CU READY DION’T SET YET 
019000 BIT #19000, acDS =; CHECK FOR OFF-LINE BIT 12 
at : apne IF Ok BIT 12 NOT SET 
TST acos ; CHECK ERROR 
BMI +4 BRANCH IF SE 
HLT tERROR (BIT 1S) NOT SET 
067477 BIT #067477, 2CDS ;CHECK FOR EXTRA BITS 
HLT ‘ :STATUS WORD ERROR 
007266 MOV STINTCB,SADINT ;LOAD RETURN POINTER 
oops ake Ee * BC ADINT) ish FOEN PR Ha cratus 
1 Bie #340, Bs # ati ¥ 100 
Ra TYPE! Cree 3 yd 
tet my “TESSice YNTERUP 
TINTCB: CMP (SP)+, (SP)+ 
000010 BIT #19, acs i REECK FOR TRANCITION TO ON-LINE(BIT 3) 
at | Jena ON-LINE FAILED TO SET 
010000 gi 810000, acos CK FOR OFF-LINE 
tae tne sti 
HL “LINE STILL SET 
st achs ere ERROR (BIT ff? 
art . spe, ti get eRRED 
077467 IT 8077467,9CDS § ; CHECK F BITS 
ao ipomen Oe 
HL STATUS BITS SET 


icreck "Sore THAT: INTERRUPTS. OCCUR HEN Te CARD. READER COMES ON LINE 
ip Fe, at RMU SENS HEIST vou wor 


;"THEN HIT 'CONT Rue ON THE CONSOLE” 








ett COR-C-0 COil CARD READER 0 
DZCORC.P ERROR FUNCTION TES 


000004 013714 | TYPE, CRLF-3 ;MOVE MESSAGE UP ON TTY 
serge 010000 BIT #10000, 3¢DS CHECK BIT12 
HLT F ‘OFF-LINE (BIT 12) WASN’T SET 
3 TST acos :CHECK ERROR gIT 
1 BMI +4 : BRANCH 
04000 HiT ‘ERROR (BIT 15) NOT SET 
032713 o40000 BIT 840000, SCDS §§ ;CHECK FOR CARD READER ERROR 

1 one +4 : A SET 
104000 HL :CARD REAER ERROR BIT 14 NOT SET 
#027573, aCDS ; CHECK CHECK FOR EXTRA BITS 

STATUS WORD ERROR 


STINTD, @ADINT 139 RE DOrNTER 
SSOR TO 


"lett MACY11 27(732) iS-OCT-7& 16:01 PAGE 4e 


cw 
oe 


Sao Fin 
o<Hv= +oO-4 


ca 


170354 8340, VEL 7 
1b7be 170350 00002 PS 2(ADINT)’ ;LOAD RETURN PROC SS0R STATUS 
170340 BI #340, SET PROSSOR PRIORITY TO O 


PS 
#100,  aCDs ;SET_INTERUPT ENRELE 
ie s BR STORE CaRDS TQ 4 eo HOPPER™ 


;"PRESS CARD READER 
; MESSAGE UP ON TTY 
;WAIT FOR THE INTERUPT 


se (SP)+  ;RESTORE THE PoInten 
aT] TunTbA, SRDINT $LORD RETURN 


Sig é eon ) ee arr 


TINTD: 


Sees 


g28g 82238 


pierid MOV 
012715 016000 MOV thes, ait ipeT UP 
INC acos : STAR 
BR WAIT F ANF NTERUPT 
TINTDA: CMP (SP)+, (SP)#  ;RESTORE 
rage 000300 CMP #000300,3¢DS § ;CHECH THe CARO Re READER STATUS 
| 901401 BEQ tw {BRANCH IF_OK 
194000 HLT CARD READER STATUS ERROR 
OUTPUT STACKER FULL SHOULD SET BITS 1S, 14, 12, 7 
104 TESTE: SCOPE 
3 ay 902370 %7 INIT sINITIALIZE STATUS REGISTER 
14226 , S67 ;"PULL OUT STACKER PRESSURE ARM 


ae HO a. T ATINE? 0 ON THE CONSOLE” 


#10000, cos tERENCH TF OFF Ne BIT12 
+4 

;OFF-LI BIT 12) WASN’T SET 
acos ;CHECK ERROR BIT 15 


ese 
: 
a # 


= 
. 
ame 


cae Sy ee ee 2 Se ee 
a 


pic SERERPRARK UL Ga abaa caso aul Mal uke ee ee ee eect nia 


Ww 
~ 
wm 
—~4 


00s71 





| 
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OZCDAC.P 11 ERROR FUNCTION TESTS 
100401 BMI +4 ;BRANCH IF SET 
104000 

: 

| 

| 

| 

| 

| 

} 


J 


HLT “ERROR BIT 15 NOT SET 
032713 040000 BIT #40000, acos $ CHECK e CARD READER ERROR 
001001 BNE +4 gle 
104000 HLT + ORO READ ERROR BIT 14 NOT SET 


932713 027577 BIT 8027577, acDS s CHECK FOR EXTRA BITS 
1401 SEQ +4 
104 HLT tatu t brs ERROR 
0 18 007664 MOV STINTE, QADINT :L0RD RETU RETURN at 
000340 170144 Is #340, ° PS LEVEL 7 
O16 76¢ 170140 O00002 MOV PS 2(POINT)' "LOA Re To SOR STATUS 
4 b5340 1701360 BIC 40 0, SOR 7PeLORTT Y 700 
12713 000199 HOV #100 Bos :SET_INTERUP INTERUF ees 
65004 if 14 TYPE, chP-3 iN ects EEOER OER TTY 
BR WA NTERUPT 
TINTE: CMP (SP)+ ;RES THE 
i I MOV (Se DADINT a Borat NTER 
0 170076 BIS #340, BS :SET SSOR 0 LEVEL 7 
16762 170072 Oo00092 MOV PS (ADINT)’:LOAD RETURN PROCESSOR STATUS 
DHe76/ 170062 BIC 2 340, 3] PRIORITY TO O 
12714 177701 V &- T UP 
012715 016000 MOV SUFBEG, 9¢b8 iSeT BUS ADDRESS 
Fe he me 
" Balt F NTERUPT 
022626 TINTEA: CMP (SP)+. (SP)+ ; RESTORE THE STACK 
62713 000300 CMP #000340,aCDS  ;C ARD READER STATUS 
1401 Be +4 cre 
104000 :CARD READER STATUS ERROR 


Te Roctuns Ween THE FEE B NECRANT SH Fates o DELIVER A CARD TO 


THIN 


A 


164 %7 INIT 
a We Sy yak 
i sore 


3 #19000, Cds Sint IF Set F-LINE 
HL : Ho LI SET AFTER “CONTINUE” 


#10, acos imo TRANSITION TO ON LINE” 
#140210, 2C0S Connect STATUS BITS 
. + eraTuS iF ae TO 140210 


SLi cad Aiud tiasest GUGEN Ee Ge 3 
s Bee 





- 
o oOo 
te 


Sa RRE RR SU NONU SNS Nc Uni sane Sas Ine RR SE GRRE Ra REReMR 


o0000 
oe =F +0 26 20—= a 


. 





me re re ee ree ee 
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D2CDAC. P11 ERROR FUNCTION TESTS 
2041 
2S we NH mY aes BLT SUSE 
Se ee ome ate 
Ss hee bet BL fem e 
e0y3 010050 104000 HLT : OFF-LINE (BIT 12) WASN’T SET 
5081 910052 005713 TST —-acos ;CHECK SPECIAL CONDITION BIT 
piboee tosood AL mn ISPECIAL CONDITION NOT SET 
5055 010060 032713 O¥0000 BIT  aHC000, CDS CHECK FOR CARD READER ERROR 
eoer bi 00ee Mo4000 AT ce sande ERROR BIT 14 NOT SET 
5062 
See ee LR... 
See Ol0ie0 Overe? 080 167650 Be my Bs eeraa foo 
506? 010125 012713 000100 nov, #100, acos 
Bs Be a, eee ee 
Sire Bioive Bou? BR” ioe FoR THE INTEGUPT. 
10150 TINTF: CNP  (SP)4 
Se HE Hee BES ye ug NR 
Sa79 Bilge Mere? OboaaB Be Be ‘a ia pace 700 
OD ee EB 
10810 Soest TNC it ART 
08) 010e12 000777 BR tHAIT FOR AN INTERUPT 
Ee Hes tee713 po0300 ~ ete erp n6D03b0, ats Ste" eee re hemes ste 
oe 010224 104000 HLT READER STATUS ERROR 
BS Meee HEN THE 8 iy A Aits10 5 Ly YéR A CARD TO 
(26a “Re 2% 
1 144 TYPE! fest oe A CRRD FROM THE OUTPUT HOPPER ABOUT 
5095 INCH BACK INTO THE READ HERD 
5006 BLOCKING THE PHOTO CELL 





a * | Racca 


saad 5 


Be SISae? 


turururururururure 


atatatate b= 6 pe b= P= = Fp 


Siam NOW Euro DS UM Poofoe Sep 
BES 
Seater 
OscVo 


ee et et et et a ee a ee ee ee ee ee ee ere ee nt 


rurururorururururorururururorururorforurorurorororururorororurururfururufurururureruror 
O000 OBOOOOOOoO0O GBO0000000O 2800 200 O00 20000 


0-20 =o =O = & + 26 o + 0 0 6 — b= B= b= & = b+ 6 — 0 & 2 b—— & = Ob + H+ HO §- 2 D 2 = 0 6 = & 0 Bs > & = H-2 H > FH — HP 


SSH TFHESH“SSBIKRZORH-BIBVRRPGV 





013722 
013714 
010000 
000010 


100210 


177701 
016000 


010000 


040000 
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MSG1 ;"PRESS CARD READER we 
CRLF =3 MOVE MESSAGE UP M iis 
910000, dcds ;CHECK FOR OF LI 
TLOPG ;WAIT FOR OFF-LINE 
#1 an acos iC an “TRANSITION TO ON LINE” 
#100210, 9C0S x F p reer STATUS BITS 


be NOT EQUAL TO 100210. 
8-77, @aCOC  ;SET UP COLUMN COUNT 
sBUFBEG, aCDA SET UP BUS ADDRESS 
CDs ich CK_CONTROLLER READY 


LOPGB FOR CONT READY 
#10000, 3COS it a tte 
+4 ; BRANCH F tt 

OFF-LINE (BIT 12) WASN’T SET 
acos 3 CHECK wie ect CONDITION BIT 
+4 


SPECIAL CORDITION NOT SET 
#40000, aCOS ;CHECK FOR camo READER ERROR 
+4 ;BRANCH IF 

;CARD REAER BIT 14 NOT SET 


O0E 7877 OCS ; CHECK re RA BITS 


ist ATUS WO 
a0," BS acre fo LeveL 7 


PS 2(ADINT)’ ;LOAD RETURN SSOR STATUS 
ug, bios aE wivemer Ta 
mSG10 REMOVE 


is ath wee hil 


efintta, afotnT iLGRD 
’ 
sto, oe on S meh Trans 
ie F Lal 
i rel MRE ADER STATUS 
STATUS ERROR 











pe eee ee eee 
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v 
2153 ane ag D OF pike BUTTON AND HOPPER CHECK TEST 
SiEs s0N ottcd 1330. i ‘b i Fite "Hor BE 3 PRESSED W WITH IN INPUT 
el52 HOP BER CHECK IIOICATOR Noa TOMES ON AND BITS 
158 713 I4 AND ARE SET 
i 
2161 O01 7? 170032 TST ¢p1000 :IS READER M-10007 
e162 star 0014 BEQ TEST : BRANCH iF READER 1S M-1200 
e163 010510 000167 o00322 IMP TESTH :OUT OF THIS TEST IF M-1000 
2165 910518 194900 TESTI: SCOPE 
2166 010516 767 O01412 JSR “7 INIT 
2187 010522 o00004 015320 TYPE, 20 "PUT ANY TWO CARDS IN INPUT HOPPER” 
2168 010526 900004 013722 TYPE, MSG !"PRESS CARD READER ’RESET’” 
2169 010532 013756 TYPE? MSGe *"THEN HIT 'CONTINUE’ ON THE CONSOLE” 
2170 010536 O00004 013714 TYPE,  CRLF-3 *MOVE MESSAGE UP ON TTY 
2171 010S42 000000 HALT 
5i75 1 932713 000010 BIT #10, acos i CHECK FOR TRANSITION TO ON LINE 
oioe ipees , 15364 ae nse 1 
| fe -_ 
5i2e pi Bees 13756 TYPE! fees a. 50, EATERS ON THE CONSOLE” 
2177 010562 013714 TYPE, CRLF-3 — MESSAGE UP ON 
e178 010566 004767 00134e2 JSR “7, INIT 
173 010572 HALT 
ste 
2182 010574 032713 o20000 BIT #20000, 2CDS =; CHECK eu 13 
2183 019600 OO14Ot FEQ +4 F NOT SET 
giey 10602 1 HL fg FROM BEGINING 
2186 
2187 010604 032713 o4000C BIT 840000, CDS §;CHECK BIT 14 
2188 O10610 001401 BE +4 BRANCH IF NOT SET 
3183 010612 104000 HL “READER CHECK ERROR SET FROM BEGINNING 
191 
at 010614 022713 o00004 BIT 84 OCDS —; CHECK CHECK BIT 2 
2193 010620 O01401 BE +4 F NOT off 
1% 010622 104000 HL HOPPER CHECK FROM BEGINING 
ty Bese = iar ey “7 SERCH TE Rely 
ug 016630 1p4000 rt ° 1 SET PROM BEGINING 
cote 10632 012712 010700 “ ime Hoy sTINTI, geDINT eerenes 
bt 1 1 Werize * — 2(ADINT); ee star 
t 12713 whe aM ti : a int oe vt 
1 6} 14 177701 MOV 399 ope 
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MOV sBUFBEG, ICDA iat WP cape BUS GOORESS 
acos AR 
, ;WAIT FOR non INTERRUPT 


TINTI: CMP (SP)+, (SP)+  ;RESTORE THE STACK 
sagem, nse 


Q 
HLT : EOF SET AT BNO oF ONE CARD 
BIT #40000, acds pean mS 
iy +4 F Ao 
HL Re OR SET AT END OF ONE CARD 


TST acos CHECK ERROR 


ALT (BORE MOT SET Oe cong 


MOV sTINTIA, JADINT NTER 
vated is I seagemer STS Si 


fe #29000, acos BSG Te Ber 
HL . 1g AT END OF FILE 

T #40000, 4 

Bx sip, Seas HT Lt 

HL pap herd cheaper 
acos CHECK BIT 


ALT a ay NOT SET WHEN HOPPER EMPTY 
Ist acos ;CHECK ERROR BIT 
AT ; ‘peat alt ROT SET AT END OF FILE 


s ’ 
’ 7” S » wey oe 
: ES Be ati bn NE ON THE CONSOLE” 
iy . -3 ; ME ON TTY 
T #10, aces ; TRANSITION TO ON LINE 
BEG 4 cAI FOR I 


BIT #20000, OCOS —_; CHECK ey 1 
? : EOF DIDN'T BY TRANSITION TO ON LINE 
+ 


Ht READ CHECK ERROR SHOULD SET BIT 1S, BIT 14, AND BIT 12 









rm 
j 





5 A gb gb a 4 A 4 a a a a a a a aa aaa 
;ROUTINE TO LOOP THRU A SINGLE INSTRUCTION TEST OR ERROR FUNCTION TEST 
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OzCDAC.P1l ERA. FUNCTION Rte 
2265 ; THIS ERROR OCCURS WHEN THE READ ELECTRONICS IN THE CARD 
2266 jRERDER DISAGREES WITH THE NORMAL UNPUNCHED AREA OF THE CARD 
sere Ot 1036 Aare 1070 TeSTH ik %7, INIT 
Seq ties Beao84 ayers YPE, stile SPEC AL DARK LIGHT CHECK, CARD ONLY 
2270 ian! i E FRONT 0 STACK” 
cerk GLige) EER BL Ve eh ne 
ieee neat pt aade TLOPH: BIT’ 410 , acos 
2274 011064 BEQ 19 a FOR OFF- tf 
2275 11066 000010 TLOPHA: BI #1 acos cK FOR T TRANS TION TO ON LINE” 
2276 O11 001 BEQ TLOPHA sWALT FOR 
2277 011074 O22713 140210 CMP #140210, acDs CK Pa! CORRECT STATUS BITS 
278 011100 I BEQ +4 ‘BRANCH IF OK 
ee73 11102 1 HL ;STATUS NOT EQUAL TO 140210 
2281 O11104 012714 177701 MOV 8-77, OC0C T up COUNT 
eke 11110 1S 016000 MOV BEG, ICDA ; ADDRESS 
5564 O1liie 10671 TLOPHB: TS¥B SCD 
2285 011120 : LOPHR ‘i eK Me rf fe Aer eoy 
£286 iiiee 7 010000 I #10000, acos 
111 1001 +4 
2288 011130 104000 HL Bonen | aT 12) WASN’T SET 
5569 011132 005713 TST acos ;CHECK SPECIAL CONDITION BIT 
1 O11134 Too40 Bi 44 SETH TE 1 
011136 ipyo0e HL OPEC TAL CONDITION NOT SET 
11140 3 o40000 BIT 840000, acos Bence 8 CARD READER ERROR 
2295 atts at BNE +4 : 
eee O1li46 1 HL BIT 14 NOT SET 
2298 011150 3 027577 BIT 8027577,aCDS § ; CHECK F BITS 
ce3 UIE Dblaa) pS e bon 
e300 11156 1 HL : STATUS 
11160 ML 2 MOV STINTH, 9ADINT 
111 BIS 0, ' PS 
il Rew pROce sok Sra Tus 
it aM 8100, aces; sh . 
ea ist TYPE, mace’ iBhe He INPUT HOPPER” 
it , Tee CREE 3 TY il 
cue Biles ae Rit ee 
es He: TINTH: & (SP)+, (SP)  ;RESTORE THE STACK 
14% O11 000720 SR “7 BELL iR NG THE 
i Olle42 167 175302 IMP erl2co BACK TO THE BEGINNING 
: 
ig 
2320 
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o35e 

535 bi ies8 004767 
eH He 
5358 hE 062767 
re tee Be 
e329 Ot aoe fe 404 
2330 O11 ? 
ps Hus Be 
pe tie fie 
Be tls ise 
2337 O11344 7 
2338 011350 l 
2339 011354 000000 
2340 








5325 

S 

Te 

ce 
li 

Ae 

ae 
| 


| 









167270 
166310 000072 
000002 000064 


010000 166270 
000020 166466 


ante 166456 
001076 
001074 


CD11 CARD READER DIAGNOSTICS 
LOOP ON TEST ROUTINE 
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;NOTE THAT SW11 MUST BE DOWN AFTER 2ND HALT 
SSS Shalala tb Salalah tah 5-5-5 tale lalabalelelalahahalabalaeled-t-1-b-t-+-4-tut-1-5--tb-tet-tab teh $-elelalalalael 





tESTX: JSR %7, SETUP - SETUP POINTER fio FLAGS 
HALT ‘WAIT FOR S ADDRESS 
MOV SWR RETRNX : STORE STARTING. AbORESS 
ADD #2, RETR :CHANGE TO FIRST ADDRESS AFTER SCOPE INSTRUCTION 
HALT ‘SET SUR OPTIONS (BIT 11 MUST = 0) 
BIT #10000, SWR CHECK SWl2 
Q +12 ;BRENCH F NOT SET 
IC #20 PS AR TRACE BI 
BR ; 10 Skip NEXT INSTRUCTION 
te ae, SET A pROCE TON COUNTER 
MOV #4000, ITMAX 
HOY #xLOOP, RETURN sh0R0 fe RETURN ADDRESS 
XLOOP: CLR TTCNT sKEEP EEP ITERATION COUNTER AT ZERO 
RETRNX 3 









IROUTINE TO CHECK CARDS WHICH HAVE ALL COLUMNS IDENTICALLY PUNCHED. 


ny ae ae Sue eta Snes 
ae nie) eae eK io 


t. IFA 


ne PEGE ee ee 
16 SreTy So vote ae Ns ete 18 oR ER 


AND THE 
eu 1 CAUSES A HAL oie NFAHIBITS ERROR PRINTOUTS. 


/Suibel CAUSES A HALT ATER, AW ERROR, AND SL3e] TiWIarTs ERROR PRINTOUT 


= oF fue. ON IAI PS Eoka Ince ain 
ie ee cawonn ; UPPER BITS OF PATTERN 









ahi 


wo 
_ 
oO 


CKLOPI: 


on 
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DZCDAC.P11 CALLY PUNCH 
2377 011476 005301 CKOVR: DEC 
2378 O11500 001367 BNE CKLOP1 
79 O11 HALT ;WAIT FOR SWITCH SETTINGS 
1! 24 CKSTRT: JSR “x7 IN T 
1 O11EI0 ? 10 LR TOTCR : INITIALIZE CARD COUNT 
2382 011514 005067 000402 CLR TOTERR ‘INITIALIZE ERROR COUNT 

383 011520 7? 167006 CLR ERFLG -CLEAR FLAG FOR PRINTING ERROR HEADING 

384 011584 105067 o00403 CKLOOP: CLRB DERFLG+1 
2385 O11 7? OQ00010 166032 BIT :CHECK FOR PACK MODE ONLY 
2385 O11 14 Q CKREAD :BRANCH IF NO 
2387 O11 000004 177570 BI aeSWR  ;CHECK FOR Ine MODE ONLY 
2398 1156 001004 NE CKREAD BRANCH IF 

389 O11 052713 BIS te acoSs =; SET BACKING. MODE 

390 11864 10516 RELG# 

391 Ol 7 1 CKREAD: CLR CLCN s INITIALIZE COLUMN COUNT 
2392 ob4 01 016000 MOV SBUFBEG, RO :SET UP BUFFER POINTER 
2393 12714 177660 MOV #-120, ‘3CDC  ;SET UP COLUMN COUNTER 
23% 1001 MOV RO aCcDA ss SET UP LOODRESS 
2395 00521 INC acs : STAR ING CARD 

o0c320 INC OTCROD : NCREMENT CARD COUNT 
105713 CKLP1: TSTB  acdS *CHECK CONT R READY 
EPL CKLP1 i LOOP IF NOT ass 
S acos *CHECK FOR ERROR 
1 I CKE BRANCH IF ERROR SET 
7 0900312 RFLG 
1 Ig OPe2 


CKLOP3: CMPB ey gCOrel ;CHECK DATA 


CKLOP2: CRO )+, CARDIM i CHECK ecw oe para ERROR 


Be pacer et 


b+ = b= bs bs > 6 ee ee ee ee 0 B+ O— 0 = = FH 0 0 b= Bs Be hs bn bn hg oH bh 


Siden SreoatsouoNucnoRees 
GBS BAGea eR aR gas 
3 
s 





000303 
ee 
7 000254 
3H tS coum RET Pa 
Bi Sie Sb 
2: fh 010000 CKERR: ate aces ; CHECK re PINE 
18 76 pare “7 Sa i 
10 CKERR3: BIT 1 ION TO ON-LINE 
| HG Bi a 
| = a te 004000 CKERR1: ay #4000, aCDS ;CHECK FOR DATA ERROR 
| e4eS % : 7 000204 TST 
| 
a ne: ee 
: MS feces GENE: AT op jREAL, LIVE 
| 011744 005267 000152 CKFAIL: INC TOTERR ;COUNT ERRORS 
ee 
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020000 165612 Bit 
166546 TST 
166540 ANE 
015264 TYPE, 
013717 CKNOHD: TYPE, 
74516 OO0S44 MOV 
eat fr 
eth TST 
BPL 
000523 MOVB 
000532 128 
STB 
BR 
CKNOPK: 
MOV 
JSR 
TST 
CKOVR1: TYPE, 
MOV 
JSR 
TYPE, 
wa 
CKHLT: TST 
BPL 
hALT 
BR 
.BY 
0 





#20000, SWR HECK FOR INHIBITING PRINTOUT 
teACt i BRRNCH RROUNG PATH Mout Ie t 
ERFLG : TEST EL AG TO PRIN 

CKNOHD : RANCH z ALREA Y TOOReS- 

ERFLG !PRINT HEADING ONCE ONLY 

NGI OUTPUT HEADING 

CRL :QUTPUT CARRIAGE RETURN, LINEFEED 
CLONT PRINT! TYPE CLCNT IN OCTAL 

%?. PRINT ‘TYPE LEADING ZERO’S 

SPACE 

DERE G 

=(RO), PRINT +1 ; MOVE opie INTO PRINT BUFFER 
2 PRINTB ; AND PRINT IT 

CKOVRI 

-(RO), PRINT -(RO) N OCA 

x2 sPRINTR ity LEADING ZERO’ 


fe mm 


ha PRINT1 


YE TOT Ns 4 IN ae 
TYPE ioreRs. RR_IN Hoc 


CHECK Suis “fo cet ON ERROR 
Bt oe : BRANCH IF 
;HALT ON ERROR 
CKLOOP ; CONTINUE 





ee + ee eee 


yo 
BBS 


4 


Bec nReBees 


OARORDRORD 
NOuULS WTO 
OOOOOOCOOOVCOOOOOOOOOOO0000 


RoR 


~11-D2C0A-C-D 
Pll 
012134 O0476 
piste ieee 
lel4¥e 1003 
012144 Ole713 
Sais Bi 
b1Si8 134000 
Ole160 00020 
o12162 1 
012166 100375 
pisizo 012777 
12176 07 
1 3 
Se BL 
Ol 000207 
ot 000004 
1 000004 
01 000000 
91 000766 


PES URSUNSESBSERERSROSRY §=— ANSSESE 


+e == b= b= & = & + 0 b= P&B 0 = = & = = bs = Os be = hh 





CD11 CA 
COMMON 


000040 


000400 
000200 


RO RE 
ROUTIN 


166314 


000272 


090254 


ADER DIAGNOSTICS 
ES 


‘datt ener IF CARD READER IS OFF-L1 


T FOR BUSY TO CLEAR IN CASE CARD HEADER 1§ S11 
ie ate Status GISTER AN Pe ERROR HALT IF 
PROGRAM WILL HANG HERE IF BUSY RERAINS 
“? CKOFFL F OFF- 
fet 3Cbs iaaLY FoR CONTROLLE 
BPL 2 A CARD IS ST Hie 
MOV #400,  acos INITIALIZE 
CMP #200; acos AKE SURE 
BEQ 4 + BRANCH IF ALL 
HL NOT ALL BITS 
RTS “7 * RETURN 
-BELL ON PASS “omnes 
BELL: STB  atP ;WAIT FOR TTY READY 
MOV izer, ,aTPB iB NG BELL 
RTS TURN 
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NE BI 


T 
E 
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REA gt a § 
DOESN’T CL 
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IS $ 


eso, INC 
feeb 


DER 
INIT m128 TION OK 
Tats. REGISTER ARE ZERO 


;SUBROUTINE TO CHECK FOR BIT le COF-LINE) BEING SET IN CARD 


: READER 


CSR, 
CKOFFL: 


IT’ 


#10000, aCDS 


;ENTERED WITH er TRAP CAL 


: PRINT 
PRINT: 


38 2482083983 


RROR PC AND S 


~(6) 


PRINT 
tNTR 


7 PR 
or tm 


PRINTI 


AND PRINT OUT A erro IF 


2 
: Y 
;WAIT FOR 


3C 


sal eT 


OR INH Bit PRINT OUT 


ee ras CHECK ig ee 


ig Capel LINEFEED 


CEADING ZERO’S 


1 A 


iYPE LE 


IN OCTAL 
ING ZERO’S 


iBrencn Fh FOR Ter SWITCH 


RETURN NTO HAL MAIN Hone 





ARD 
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ASE 
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ae 012346 000000 SAVPS: 0 
SCOPE AND/OR ITERATION LOOP FOR EACH TEST 2 TIMES 
2529 012350 032767 O40000 165212 ac OPEC: BIT yy #40000, SWR veal SW R FOR SCOPE 
sea) BissPR nee ta oo4o00 165202 BY bhoo, sun NBS FEgF FOR. ITERATION 
2532 012366 901013 SNE D.2 : INHIBIT ITERA 
2533 alse 4 000036 000032 CHP ¥ whe ‘CHECK FOR ITERATIONS COMPLETE 
s23¢ iea7e 7 000026 NC TCNT VINCREMENT COUNT 
25% 012404 06 D.1: CMP (6)+, %6 REPOSITION STACK POINTER 
2527 012406 012667 165364 MOV (6)+’ PS ‘RESTORE PROCESSOR STATUS 
2538 OleYle 177 peCare IMP JRE TURN ;RETURN TO RERUN TEST 
2539 012416 005067 O000010 D.2: CLR ITCNT *CLEAR COUNT 
2540 Ole¥22 011667 O00006 MOV a%é, RETURN ; SAVE SCOPE RETURN POINTER 
sa GES) on re jee tan ats 
2543 pte 3e 00000 HTN "4 Count L tae FOR RI ERATION LOOP 
goua 012434 001060 RESURI: TEST1+2 ADDRESS OF L 
OS46 
2547 ;ROUTINE TO TYPE ASCII MESSAGE, MESSAGE MUST TERMINATE WITH A O BYTE. 
2548 THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
2549 *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
e350 *NOTE2: S$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
a 
2554 
| 2555 012436 177564 $TPS: 177564 TTY PRINTER STATUS REG. ADDRESS 
2556 012440 177566 $TPB: 177566 sity Y_ PRINTER BUF FFER RE ADDRESS 
2557 Ole442 090 NULL: .BYTE 0 ale NULL CH HBRACTER FOR FILLS 
2558 010443 0 SFILLS: BYTE : cone Ne aoe TALLER CHAR HERACTERS gREGUIPED 
2559 012444 0 STPFLG: .BYTE 
e560 O1244s 000 “BYTE 0 
2562 oleae 105767 177772 STYPE: ISTE SIPFLG 1S THERE A TERMINAL? 
cebe a HALT HAL HERE IF NO TERMINAL 
2565 012456 07 BR 7$ ae 
S229 Olsuee 017600 — Spe 
1 1 ooooc2 MOV adetsP) RO DRESS OF ASCIZ STRING 
2568 O1eHeb rat 1$ MOVB  (RO)+,-(SP) CHARACTER R 10 66 IVFe ED hr STACK 
5293 Bisu7e BOs oe iy uae POP IT OFF THE STACK 
2571 012474 012600 MOV (SP)+,RO ; 
Be biest8 Bobote ooo002 7$ att #2, (SP) ; ‘eagle 
Seog enn ee 000012 BH care F a eae : Ts SHAR TYP WAS A LINE FEED 
f 4 
e576 ciss14 b57969 BNE i ty exit next “oie, F r NOt Lie c FEED 
e 12516 016746 177720 MOV S$NULL, -(SP) io he’ wat 
| 5279 012522 105 000001 4 DECB  =s«A SP) A NOLL” NEED TO a TYPED? 
| 2580 O1 BLT BR F NO--GO POP THE NULL OFF OF STACK 
| 2581 0125 767 000002 JSR ,5$ GO TYPE A NULL 
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4 
S$: F3r8 ftps 


L S$ 
MOVE 2(SP),aSTPB 
RTS | ite 
; OCTAL DUMP OF A WORD 
PRINTI: O 
PRINTe: .WORD 0,0,0,0 
PRINTS: .BYTE 90,0 
PRINTB: MOV 8176401 , PRINTS 
MOV 
MOV aPaINT2, “S 
CLRB 
BR PRINTT 
PRINTR: MOVB 81, PRINTS 
PRINTS: er x. 
MOV ePRINT2, XS 
BB 
PRINTL: 8) 
ROL INTL 
ROLB (S) 
PRINTT: ROL INT] 
ROLB (S$) 
PRINTF; ROL PRINT] 
ROLB (3) 
Be (5) 
Be As 
' PRINT 
I #’°0, (S)¢ 
bin 
INt2,xS 
BNE ¥ 
#'0,(5)+ 
fa 
. INT2 
MOV ()4, 28 
RTS % 
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;LOOP 
sWAIT UNTIL PRINTER IS READY 
;LOAD CHAR TO BE TYPED INTO DATA REG. 


; BYTE -1,3 
T PO we TO 1ST ASCII CHAR. 
hae BITS 
;SET ZERO FILL SWITCH 


er cont ZERO’S 


eT Pol NTER TO os ASCII CHAR. 
See 
rat foe's 
ava ‘grt INTO C 
ROTATE BIT INTO C 
;PACK IT 


;CHECK FILL SWITCH 
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;REPERT 
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3164 
te p187 18 12767 O15742 162104 POWR: MOV #RESTOR, 24 
166 0157, 10046 MOV %0,-(6) 
3167 Q1S7e2 O10!4€ MOV %1,-(6) 
3168 015724 O10c% MOV we,-(6) 
3169 015726 O10346 MOV %3,7(6) 
3170 015730 91 MOV %4,-(6) 
3171 O15732 Ol MOV %5,-(6) 
3172 plea 010667 000036 MOV %6, SAVE 
3173 015740 HALT 
ihe 
3176 O1S742 012767 015712 162054 RESTOR: MOV #POWR, 24 
3177 015750 016706 000022 MOV SAV6, 46 
3178 015754 012605 MOV (6)+,%5 
3179 015756 012604 MOV (6)+,%4 
3180 pier be 012603 MOV (6)+,%3 
3181 015762 Oleb0e MOV (6)+,%e 
3182 015764 012601 MOV (6)+,%1 
3183 015766 012600 MOV (6)+,%0 
3184 yee 016716 174440 MOV RETURN, (6) ;START TEST OVER 
ste 01 000002 RTI 
it 4 015776 000000 SAVE: O 
3189 016000 000000 BUFBEG: 0 
3150 000001 -END » 
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DZCDAC.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 
ADINT =“000002 6608 737% 738% 90S* 907% 314 
969% 981% 997% * 1007 1009 
10793 1087 1089 1101% 1114 1116% 
1178% 1194 1196% le 1206 abit 
1265 12e71* levee 1278% 1286# 1361 
1900 1947 1949# 1958 1960 1996 
elebe e130% 2:39 e14l*e ee03e 2205s 
ALLDON 00 1698 17018 
ALPCD O12744 1348 26438 
ALPCDP Ol 27278 
PEND 013202 1343 27228 
ALPENP 013323 es0bs 
ALP] 004332 1343 13488 
BEGIN 001000 691 7508 
BELL Olelbe 1324 1703 2314 2418 2485s 
BINCD 013324 1344 28108 
BINCDP 013564 289se 
BINEND 013562 1345 coos 
BINENP 013703 23748 
BKGND O04S20 1377 1378 1383 
BKGND1 13808 1381 
BUFBEG 016000 gre Bc? 33 937 63 3 
1365 1651 178 1963 
BUFEND 510 1399% 1400 1401 1402 1S16% 1517 
B.CK 012324 04 eSl8e 
Oleleb 2361% e362% 2363 2409 cHEeR 
CDA =x00000S 6638 736% 7 B2e% 823 
1083 1le0# 1160# le00s le3b* 12eS8# 
1963 e011 e2043% 2079% el108* 2144s 
CDBA: OOGSO6 716% 
coc 46«.-sx =«D00004 6628 735% 802% 80 8le 
1082 1119% 1159 1199 123S* 12eS7% 
1782 * 20108 e2042e 2078% 2107% 
cpoce 000504 7158 
CDCNT (006522 1340% 1429 1432e% 14S4# 1543 1548 
13968 £a°7 7578 
COPKO 012130 3 365% 367% 2373% 24678 
¢ 1 Ole131 esbb* 2368% 2369% 2370% 2371% #2376% 
COREAD OO4S 1372 1374 1g7pe 
ces =x000003 661 734% BE 782% 783 789% 
831% 836 Loe 8 cy Et 
G58 anne \ iC 160 * ae, ar 
a ae MD 
ca es a a 
1616 117 1624 e328 teat 1703. 
1786 1790 1794 1738 1811 1815 
1862 1866 th 1878% 1882 ee 
1333 1939 e 951% 1964 Ys 
3e 2036 A At 047 
elo) 2103 sige 2110 ll 5419 
2187 2192 1] ec07# e22l0% eel 
2cs3 2273 ee 277 ec83% 2284 
2397 2339 2416 24ig3 e423 2476 


926% 
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24688 
795% 796 811: 816 827 
868 877 880% 881 887 894 
938% 939 S44e# 964% 965 968# 
1044% es 1048% 1092 1060# 1084 
1134 1137# = 1l6l* 11 116S* 1174 
153 * 1l2e46# i532" 1583" lese# 1287 
1 1380 1386 1389 1393 14 
131 13a 1S94 1338 1603 1605 
171 1718 1722 1 1734 1785# 
1828 1832 1836 1840 1eS2ee 1855 
1894 1907 191 915 919 1931 
1934 1988 O* lee 2016 
re 2089 6 : 080# ip 
eee4 ghi2 
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DZCDRC.P CROSS REFERENCE TABLE -- USER SYMBOLS 
RESTOR S742 3165 yacpe 
a thes a 4 26 Te, 
2325% 3eb# 336 2338 23398 
‘- 7be# 8617678 esaa Gang 2 eS4oe 25448 3184 
658e i1365# 1369 1 140 14 4 43 439 461 1463 A518 ieee 1550 
SS2 1S58 1581 1S 1651% 165 170 392% 394 2472 24 4 4 
2450 2e4S2 Fabs rape e568 2S71# 
Ft =000001 65398 1364# 14 14 lle 141 1422 1433 143S*# 1436 1438% 1439 1441# 
144 1444e 14478 8 144 14S0# te 14S3* 1458 146 1S22 1Se4 1S26# 3 
132 ta 1S43# 5 iss4*# 15 1557# css te 1561 1S63% 1566s 
; t 2503 
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DzCDAC.P1l CROSS REFERENCE TABLE -- USER SYMBOLS 

TOTCRD 012124 2381s 23968 2454 24eSe 

TOTERR Oleis 53952 Su3cx SUE?) Buea 

TPB 1 5 2487% 

| o1>8  B4BS 

TRAPX 001032 ey 7E Fy 

TRFLG  OO0S2E rue 7418 = 753Ss«32Se 13S 

TRPI 1352 1eSe 

TRIRAP 15 B35 138 

TSTART 006216 gi¥e 148 1964 MLL NM2 NM 1MS3 «1526 SHOR 156115671572 16588 

TYHERD Boetae 1Se7" 157% 1b668 

Yee. BpRANS fez 868 TBBB" oem =a ase 1200 15771580 «1669 Ss«1670~—« 1672 
1677168 7 1777 «77a PPg 780 7B 1807 1808 18031828 
1g4 ' tesa «1902S «190 53 «1989—Sfs«$ 962 i964 198 
1977 1978 2001 2002 202 2026 2087 2029 2030 2068 2069 2070 3093 
3094 5998 «3133 s«Bld—SsiBIGS~S«CBG?)~=soeSSBIB9Ss«CBI7Dsis8s 517 «3177 
Sug S56; 5263 5269 5271 «S272 «307 5308 «3309S Bu38 «5439 Su 
SS Se 5634 

XLOOP 011344 5 ® 

ILLS 12443 SccBe 

Sart piSuas See7_ 2577 

sire Ol Bebe ‘ 

sips OL % ; 

See Bt E3 ; 

. = O1e008 ede G70 b7ee rsa b7ee ole caus Goae Gaze Gace Gage 7087128 
: o71 feu 731787 BOHR I7 Be 
at a 108 133s sLies size 
hank i i i a Ke Ch 
1587 i is10 «1968 197819 32149 1500504150? 

gt i i 1 160 4«e1?—é«édadsSCtéiéChECSC‘*dS ie32«1719—=Sts«1333 
wii mm i ee bm Be ie ip 
1816 1829 ise eer sRGACt«dESGG]CSC=i«éE SCE 1965 ise5 ise; sige 1989 1983 
50k £108 113 e117 e181 13 148 BI seg Be 199 
197 li Bat 3B} B25 237 Baul H6 3256 5573 (Sag 
291 ev) ba10 23e3 Baal «N77 BHD Nee BSG «S03 S19 (2608 
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CDAC. P11 
BOUNP «688 
OMMEN it" 
SUMP 6888 
OM ie 
1a 
GETPR le 
GETSUR rt 
NT gsi 
MULT 18 
NEWTST ie 
POP 18 
PUSH 1s 
REPORT ls 
6888 
I 18 
TUP ie 
SKIP ls 
SLASH is 
TARS ig 
is 
YPBIN ie 
TYPDEC ls 
TYPEN 6878 
TYPNAM ls 
TYPNUM ie 
TYPOCS ls 
TYPOCT rT 
TYPTXT 18 
| SSESCA is 
SSNEWT ls 
SSSKIP le 
-EQUAT 1s 
ie ' is 
Sitip is 
* SWRHI 1s 
“SACTI 18 
* §APTB is 
* SAPTH le 
" SAPTY is 
*SASTA ie 
\iscarc st 
"SCHTA 1s 
|:$0820 ls 
" $DB20 is 
| ‘SDIV ie 
| 1SEOP 1s 
can it 
‘Sot 1s 
* le 
: le 
* le 
; is 
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$SI le 
“seize ls 
§TRAP le 
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2 SASRGNe SIOSY ARBs Sake RASS? FS FORARBENAS Baths? 
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2 SLENSae SANG SPs RSE BESET Rsoaeaebeses Saas 
2 RBBSRSD SSIRES ESSER SES MRR FVAREACPEMN ES Braag 
wm fCOFTkRM—iN F Re 5 ur TFO0O ~~ o—o woo rT 0) ~™ 
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SEUSS LL 2° nePRANGEPHSEEPEE BRE Engle"! 27722) sS-cr-7e es01 Pree 7 


CMPB 1S2e 1552 1558 1883 e403) = e427? 28575 
Kotte 13e5 174) 


DEC 889 1676 1681 2377 
DECB 2579 














751 764 a8 304 932 956 Sa 1069 1076 1113 
1153 1186 1193 le2e 1230 l2Se2 1275 1324 1358 1375 417 1421 425 4S7 1489 
1462 1482 1532 1536 1$76 1879 1S82 1610 1648 1675 1680 1703 1707 ne 
1806 1847 1926 1974 2024 2092 2166 2178 2cb8 2314 3 2359 2380 2418 2441] 
2446 2451 Bees 2458 2475 2510 2513 2516 2574 2581 
MOV £90 633 655 700 706 733 734 735 736 737 7 742 750 755 759 
7b2 735 802 f22 Say 84S B46 860 878 879 ess 833 905 907 909 
ay ate 914 926 ase aus 936 iis 1003 an 107 16 i 4 ioe 
ca Sc 
isne 1158 1104 1161 Lies ll 1138 Lies Lig 16] 118s i133 1a leat i 
ee iad ied deel les) dees dg tee dae tell ai leey ss lay eg 
1350 13S3 1357 1361 1363 1364 1365 ies 1367 1368 1369 1370 1379 1399 1406 
1411 1453 ie 1461 1348 1 1368 1325 1602 164e 1646 1650 1651 1652 1674 
Bm i i i ee ie i ie ie ie ie ie ee 
ie 0 Bhd ok tes BO ate OS BIg? Si Sieg G1 Sle BL) 
gi giz 358 s208 ; g2°8 e3 2393 a 3 ein So39 each SoBe 2478 ef 
EE SET feo «6 StessStSBCSSTSASCSos,s Sty $ $003 shud 
3181 3182 3183 3184 
MOVB 1S78 1581 Fen8 £308 258s 2607 2610 2b32 
NOP 1264 1708 703 171 
RESET 765 1706 
ROL Aa 2618 2620 x 
ROLB 366 2368 2289 2370 2371 2617 2619 e621 
ROR 2365 2373 
RT 4 LES4 uM 1 
RT 73 1654 i reas Pas Stee 3igs 2434 ecu 5 
Sus 8 1401 1438 144] 1447 1] 1540 1S41 1S42 15S l 
* Feo ee ee ee oe 
oe Ge ut oh ee lm i ee 
_ beh 1 Ege Fe i 43 ace 33 rage 10 
ll2e 1134 1162 1174 e0e 1210 1287 1386 1533 1537 1S 
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2110 2284 2397 
WAIT 1731 
. ABS 668 
.ASCII 2976 2978 3016 
“ASCIZ. «28977-2979 —Ss2981 
3095 3097 3099 
BYTE ? 2557 
735 e736 e730 
Sree Sek S58 
2780 o©781 2782 
e738 79 797 
398 900 
2913 e314 e315 
S353, | Saag, Saue 
e358 2959 «2960 
3. 2974 
ENABL 1 
~END 3190 
-ENDC 876 990 ©=«:«:1016 
-EVEN 3163 
Q 976 1016 1056 
im "ew 
HAR SCgeettsCiE 825 
“MACRO 1 
-NLIST l 532 632 
“REM 1 
REPT 670 
SBT 532 632 731 
“TIT 533 
WORD 2597 
ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 
#, DZCDAC. SEQ/SOL/CRF 
RUN-TIME: 29 40 4 SECONDS 
RUN-TIME RATIO: 126 /74=1.6 
CORE USED: 33k (65 PAGES) 
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